Можно решать различными способами. можно рассуждениями-вычислениями, а можно просто написать программу, в которой вычисляется нужное значение: var i,a,s,k: integer; begin k: =0; for i: =1 to 1024 do begin a: =i; s: =0; while a< > 0 do begin s: =s+a mod 10; a: =a div 10; end; if s mod 4 = 0 then k: =k+1; end; writeln('k = ',k); end. результат: k = 253
Спасибо
Ответ дал: Гость
паскаль
откомпилирован в: pascal abc
program z1; uses crt; var s: string; c: char; i: integer; begin write(' vvedite strocy: '); readln(s); writeln(); write(' vvedite sivol dl poiska: '); readln(c); writeln(); for i : = 1 to length(s) do if s[i] = c then // begin writeln(' simvol prinadlech stroce = ', s); break; end; if s[i] < > c then writeln(' simvola net v stroke = ', s); end.
Популярные вопросы