Определить количество трехзначных чисел ,кратных 3.(ПАСКАЛЬ)
Определить количество трехзначных чисел ,кратных 3.(ПАСКАЛЬ)
Гость
Ответ(ы) на вопрос:
Гостьvar i,n:integer;
begin
n:=0;
for i:=100 to 999 do
if imod 3=0 then n:=n+1;
writeln('количество трехзначных положительных, кратных 3), n);
end.
Не нашли ответ?
Похожие вопросы