Сколько существует трёхзначных чисел сумма цифр которых делится на 5? вывести их. программа паскаль

149

185

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

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

kozlovadasa52

Информатика

4,4(37 оценок)

Var i, a, k, sum : integer; begin k: =0; for i: =100 to 999 do begin sum: =0; a: =i; while a> 0 do begin sum: =sum+(a mod 10); a: =a div 10; end; if sum mod 5 = 0 then begin inc(k); write(i: 5); end; end; writeln; writeln('количество чисел: ', k); end.

baevivanx2017x

Информатика

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

1. var n,i: integer; s: real; begin write('n='); readln(n); s: =0; for i: =1 to n do s: =s+1/i; writeln('s=',s: 7: 3); end.2.var n,i,a,s: integer; beginwrite('n='); readln(n); s: =0; for i: =1 to n do begin write('a='); readln(a); s: =s+a; end; writeln('s=',s); end.