определите и выведите на экран количество трехзначных чисел, которые делятся одновременно на 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.
У меня щас компилятора нету, так что не проверял. Если есть ошибки, или вопросы - стучись в личку.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
