циклические алгоритмы...

@jack the ripper · Регистрация: 19.01.2011

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

помогите плз написать проги на циклы в Delphi Console.. а то я только на линейные и разветвляющиеся сделал, а вот циклы пока не шарю... спс заранее!!!)

1. Найти сумму чисел от 100 до 200, кратных 17.

2. С помощью оператора while напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно.

3. Составьте программу определения наименьшего общего кратного двух натуральных чисел (использовать формулу: НОК*НОД=a*b)..

P.S.
каждую задачу нужно решить с помощью разных циклов! (например: первую с помощью цикла FOR, вторую с WHILE, и т.д....)))
спасибо за понимание))

@Dekio · 21.01.2011, 20:09

Pascal

for i:=100 to 200 do
if i mod 17=0 then
inc(sum,i);
writeln(sum);

Добавлено через 3 минуты

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i :integer;
begin
i:=2;
while i<=100 do
begin
if not odd(i) then
Memo1.Lines.Add(intTostr(i));
inc(i);
end;
end;

@jack the ripper 1 / 1 / 0 Регистрация: 19.01.2011 Сообщений: 31
		1
	циклические алгоритмы... 21.01.2011, 18:35. Показов 2908. Ответов 1 Метки нет (Все метки) помогите плз написать проги на циклы в Delphi Console.. а то я только на линейные и разветвляющиеся сделал, а вот циклы пока не шарю... спс заранее!!!) 1. Найти сумму чисел от 100 до 200, кратных 17. 2. С помощью оператора while напишите программу вывода всех четных чисел в диапазоне от 2 до 100 включительно. 3. Составьте программу определения наименьшего общего кратного двух натуральных чисел (использовать формулу: НОКНОД=ab).. P.S. каждую задачу нужно решить с помощью разных циклов! (например: первую с помощью цикла FOR, вторую с WHILE, и т.д....))) спасибо за понимание)) 0

Опции темы

циклические алгоритмы...

Решение