Паскаль. найти количество положительных чисел в промежутке от 1 до 100, кратных четырем.

210

302

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

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

moskalkov

Информатика

4,7(96 оценок)

// найти количество положительных чисел в промежутке от 1 до 100, кратных четырем. var i,j,x: word; begin j: =0; writeln ('числа кратные четырем: '); for i: =1 to 100 do begin x: =i mod 4; if x=0 then begin j: =j+1; write(i,' '); end; end; writeln; writeln ('всего таких чисел: ',j); end.