Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
51/200..............
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 e8;
var a, b, c, v: real;
writeln('введите значения длины, ширины,высоты');
readln(a,b,c);
v: =a*b*c;
writeln('v=', v: 4: 2);
readln;
Популярные вопросы