Используя оператор while напишите программу определения всех чисел в диапазоне от 1 до 100 включительно, кото

@Silwon · Регистрация: 16.12.2015

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

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

@sairex · 16.12.2015, 16:57

И чего сложного?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  I:= 1;
  while I <= 100 do begin
    if (I mod 12) = 0 then
      ListBox1.Items.Add(IntToStr(i));
    Inc(I);
  end;
end;

@Silwon 0 / 0 / 0 Регистрация: 16.12.2015 Сообщений: 10
		1
	Используя оператор while напишите программу определения всех чисел в диапазоне от 1 до 100 включительно, кото 16.12.2015, 16:49. Показов 2104. Ответов 1 Метки нет (Все метки) С помощью оператора while напишите программу определения всех чисел в диапазоне от 1 до 100 включительно, которые нацело делятся на 12. 0

	16.12.2015, 16:57

Используя оператор while напишите программу определения всех чисел в диапазоне от 1 до 100 включительно, кото

Решение