Вывести числа кратные 4 на отрезке от а до б. Паскаль

Question

72

Вывести числа кратные 4 на отрезке от а до б. Паскаль

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

nigilist · Accepted Answer

88

nigilist

26 февраля 2023

const N=10; var c: array[1… N] of integer; a, b, i: integer; begin writeln ('Введите отрезок: '); readln (a, b); for i: =1 to N do begin c[i]: =random (30); write (c[i],'); end; writeln; writeln; for i: =a to b do begin if (c[i] mod 4=0) then write (c[i], '); end; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: