program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.
Ответ дал: Гость
решение для 4-байтного представления
запишем двоичное число в форме нормализованного двоичного числа с плавающей точкой
0,110010001*10^1000
10- основание (2дес=10дв)
1000-порядок(8дес=1000дв)
определим машинный порядок:
мп = 1000 + 1000000 = 1001000
запишем число
01001000 0000000 00000001 10010001
порядок ман тис са
Ответ дал: Гость
3+3-3: 3=5
3-3+3+3=6
3: 3+3+3=7
3*3-3: 3=8
3*3*3: 3=9
3* 3+3: 3 = 10
Ответ дал: Гость
var i, n, a: integer; c1, c2, c3, c4: integer;
begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.
Популярные вопросы