Определите и выведите на экран количество трехзначных чисел…

Question

Определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3,5,7 (в паскале авс) РЕБЯЯТ ОЧЕНЬНАДО!

Answer 1

69

jonny-b

29 марта 2023

program del; uses crt; var chisla: array[1… 15] of integer; n, i, k: integer; begin clrscr; write ('Введите кол-во чисел: '); readln (n); for i: =1 to n do begin write ('Введите 'i'-тое число: '); readln (chisla[i]); end; for i: =1 to n do if (chisla[i] mod 3=0) and (chisla[i] mod 5=0) and (chisla[i] mod 7=0) then k: =k+1; write ('На 3, 5 и 7 одновременно делятся ',k,' чисел.'); readln; end. У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы — стучись в личку.

пользователи выбрали этот ответ лучшим

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

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

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

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