8. Задание Запишите число, которое
будет напечатано в результате выполнения программы. Для Вашего удо
программа представлена на пяти языках программирования.

146

417

Посмотреть ответы 1

Ответы на вопрос:

ErikaKrass

Информатика

4,5(13 оценок)

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! №1 begin var n: =readinteger('n='); var s: =n mod 10; n: =n div 10; var d: integer; while n> 0 do (d,n): =(n mod 10,n div 10); s+=d; writeln('сумма ',s); if s> 10 then writeln('верно') else writeln('неверно') end. №2 begin var s: =readinteger('n=').tostring; var n: =s.length; (s[1],s[n]): =(s[n],s[1]); s.println; if s[n].todigit.iseven then writeln('верно') else writeln('неверно') end. №3 begin var n: =readinteger('n='); var p: =1; while n> 0 do begin var d: =n mod 10; if d.isodd then p*=d; n: =n div 10 end; writeln('произведение ',p); if p.inrange(100,999) then writeln('верно') else writeln('неверно') end. №4 begin var n: =readinteger('n='); var k: =0; while n> 0 do begin if n mod 10=5 then k+=1; n: =n div 10 end; if k=3 then writeln('верно') else writeln('неверно') end. №5 begin var n: =readinteger('n='); var k: =1; writeln('делители: '); for var i: =1 to n div 2 do if n mod i=0 then begin print(i); k+=1 end; writeln(n); if k.iseven then writeln('верно') else writeln('неверно') end.