Информатика Предыдущий вопрос Следующий вопрос сколько на интервале от 1 до 100 чисел кратных 4 ПРОГРАММА ПАСКАЛЬ ABC Марчо2003 2 года назад
Информатика Предыдущий вопрос Следующий вопрос сколько на интервале от 1 до 100 чисел кратных 4 ПРОГРАММА ПАСКАЛЬ ABC Марчо2003 2 года назад
Ответ Ответ дан hello93 Var i, k: integer; Begin k:=0; writeln('Числа кратные 4:'); for i:=1 to 100 do if i mod 4 = 0 then begin k:=k+1; write(i:4); end; writeln; writeln('Всего чисел: ',k); End.