Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var a,s : string;
i: integer;
begin
writeln ('введите слово и символ-');
readln (s,a);
for i: =1 to length(a) do
if copy (s,i,1)=a then writeln (i);
readln
end.
в одном байте восемь бит. следовательно 100/8=12.5 ответ 12.5
program ; var n : integer; begin for n: = 10 to 99 do if n mod 13 = 0 then writeln(n); readln; end.
квадратная стена в каждый угол посадить по зайцу, это будет 4 зайца, а пятого посадить в получаем у каждой стены по2 зайца
Популярные вопросы