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