Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
в первом две палки а вавтаром три
паскаль
var a,i: integer;
begin
readln(a);
writeln;
for i: =1 to a do
if (a mod i=0) then writeln (i);
end.
var
a: integer;
readln(n);
writeln('сумма цифр числа ',a,' равна', a div 100+(a mod 100) div 10 +a mod 10);
writeln((a mod 10)*100+((a mod 100) div 10)*10 +a div 100);
Популярные вопросы