Задание:
Определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 3,5,7 (в паскале авс) РЕБЯЯТ ОЧЕНЬНАДО!
Решение:
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. У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы — стучись в личку.
Знаете другой ответ?