Begin write('введите целое положительное число m: '); var m : = readinteger; assert(m > 0); var s : = 0; while m > 0 do begin s += m mod 10; m : = m div 10; end; writeln('сумма цифр числа m равна ', s); end.
Спасибо
Ответ дал: Гость
v - объём цилиндрачисло пи = 3,14язык программирования: паскальvarv, r, h : real; beginreadln (r); readln (h); v : = 3.14 * sqr(r) * h; writeln (v)end.
Ответ дал: Гость
1.
var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
Популярные вопросы