программа с оператором repeat

@smert · Регистрация: 14.04.2015

Author24 — интернет-сервис помощи студентам

помогите пожалуйсто написать следующую программу.
найдите все натуральные числа от1 до 100кратные 3.
заранее спасибо!

@WebMax 2.0 · 21.12.2011, 23:47

Pascal

uses crt;
 
var n,i:integer;
 
begin
    Write('Натуральные числа , кратные 3: ');
    repeat
    inc(i);
    if i mod 3 = 0 then write(i,' |');
    until i>100;
end.

@smert 0 / 0 / 0 Регистрация: 14.04.2015 Сообщений: 4
		1
	программа с оператором repeat 21.12.2011, 23:37. Показов 1712. Ответов 1 Метки нет (Все метки) помогите пожалуйсто написать следующую программу. найдите все натуральные числа от1 до 100кратные 3. заранее спасибо! 0

	21.12.2011, 23:47

программа с оператором repeat

Решение