Pascal ABC Составьте программу которая находит количество двухзначных чисел кратных 3
Pascal ABC
Составьте программу которая находит количество двухзначных чисел кратных 3
Гость
Ответ(ы) на вопрос:
Гостьvar i,otvet:integer;
begin
for i:=0 to 99 do
begin
if (i mod 3)=0 then
otvet:=otvet+1;
end;
writeln(otvet);
end.
Не нашли ответ?
Похожие вопросы