Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var s : string;
а : integer;
begin
writeln ('введите слово-');
readln (s);
а: = length(s)
writeln ('длина слова=', a);
readln
end.
фамилия
имя
отчество
program primitive;
var a,b: integer;
read(a,b);
writeln(a mod b);
end.чему в школе то
Популярные вопросы