Создайте приложение выводящее ** экран первые 8 чисел кратных 7 Delphi

0 голосов
136 просмотров

Создайте приложение выводящее на экран первые 8 чисел кратных 7
Delphi


Информатика (31 баллов) | 136 просмотров
Дан 1 ответ
0 голосов

Procedure TForm1.Button1Click(Sender: TObject);
var
  i, k: integer;
  s: string;
begin
  k := 0;
  i := 1;
  while k <> 8 do
  begin
    if (i mod 7 = 0) then
    begin
      s := s + IntToStr(i) + #13;
      Inc(k);
    end;
    Inc(i);
  end;
  ShowMessage(s);
end;

(9.4k баллов)