Написать програму в паскале:
Найти кол-во чисео от 1 до n кратных 15
var
i,a,n:integer;
begin
a:=0;
write(Введите число n: );
readln(n);
for i:=1 to n do
if i mod 15=0 then a:=a+1;
writeln(Количество чисел: ,a);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
