Создайте приложение выводящее на экран первые 8 чисел кратных 7 Delphi
Answers & Comments
pacixor
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;
Answers & Comments
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;