var s : string; symb : char; i : longint; begin readln(s); readln(symb); if pos(symb,s)=0 then writeln('в этом слове нет этого символа') else begin i: =0; while pos(symb,s)< > 0 do begin write(pos(symb,s)+i,' '); i: =i+1; delete(s,pos(symb,s),1); end; end; writeln; writeln(i); end.
Ответ дал: Гость
var
a: array[1..5]of integer;
i: integer;
begin
for i: =1 to 5 do read(a[i]);
for i: =1 to 5 do write(a[i],' ');
writeln;
for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);
writeln;
end.
Ответ дал: Гость
253(8)=10101011(2)
2в4(16)=1010110100(2)
48(16)=1001000(2)
Ответ дал: Гость
виды алгоритмов по способу записи
1)текстовый
2)графический.
виды алгоритмов по последовательности исполнения шагов-команд
Популярные вопросы