Сколько существует четырёхзначных чисел кратных 3?Помогите пожалуйста...
Сколько существует четырёхзначных чисел кратных 3?
Помогите пожалуйста...
Гость
Ответ(ы) на вопрос:
Гостьvar i,x:integer;
begin
for i:=1000 to 9999 do
if i mod 3 = 0 then inc(x);
end.
Вроде бы всё.
ГостьVar k,i:integer;
Begin
k:=0;
For i := 1000 to 9999 do
If i mod 3 = 0 then
k:=k+1;
Write(k);
end.
Не нашли ответ?
Похожие вопросы