Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Преимущество
Объяснение:
гааоаооаьатаататптпптп
program xxx;
var i, n : integer;
begin
write ('введите число n-');
readln (n);
writeln('делители числа: ');
for i : =1 to n do
if n mod i = 0 then writeln (i)
end.
var s : string;
а : integer;
writeln ('введите слово-');
readln (s);
а: = length(s)
writeln ('длина слова=', a);
readln
Популярные вопросы