Ответы на вопрос:
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;
Популярно: Информатика
-
viparistocrate04.12.2020 13:25
-
zalinairina930.05.2022 03:58
-
abramchuk207.06.2023 13:47
-
fainanem15.05.2022 20:27
-
Хафиза121.05.2023 03:04
-
PisarenkoEV101.07.2021 01:44
-
alicahirdeeva21.04.2020 17:30
-
SaLmOn466326.03.2021 21:52
-
tupoeMango30.11.2021 16:38
-
glebochkabalas10.09.2021 10:54