Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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);
program fasf;
n,q: integer;
write('введите этаж: ');
q: =n*4;
writeln('квартиры: ',q,q-1,q-2,q-3);
Популярные вопросы