Здравствуйте)подскажите ,как сделать программу: напечатать ** экране все четырехзначные...

Question

Здравствуйте)подскажите ,как сделать программу: напечатать на экране все четырехзначные числа кратные 3 и подсчитать кол-во ink(k) cаму программу я сделала подскажите вот это ink(k)
var i,k:integer;
begin
for i:=1000 to 9000 do
if i mod 3=0 then write(i);
может ink(k) =k*3? сомневаюсь,помогите пожалуйста

Answer 1

Var i,k:integer;
begin
for i:=1000 to 9999 do
if i mod 3=0 then begin
writeln(i);
inc(k);
end;
write('Кол-во таких чисел равно ',k);
end.

Comments

Ответ будет число константное,

---

но я только в 8 классе, и мы первый год проходим ивт,учитель нам не говорил ничего про константные числа

---

то есть эта программа просто увеличивает числа от 1000 до 9999 на три и выводит их? это же ужасно долго

---

Программа работает 2 секунды и выводит результат (зависит от операционной системы)

---

Она не увеличивает числа, а проверяет делится ли число на 3 без остатка

---

возможно проблема и в этом

---

я опробовал вашу программу и он выводит на экран все числа соответствующие условию и в данном интервале на экран.

---

Возможно невозможно, решать вам. Вы же выкладываете задачу, я её решил и я не желаю затягивать дискуссию насчет этой задачи.

---

её не я выкладывал

---

А о чем речь тогда?