Напишите программу, которая выводит на экран трехзначные числа, кратные 3. программа на pascalabc с массивом.
222
239
Ответы на вопрос:
Program n1; var a: array[100..999] of integer; i: integer; begin for i: =100 to 999 do a[i]: =i; for i: =100 to 999 do if a[i] mod 3=0 then write(a[i],' '); end.
Program massive; vari : integer; number : array [1..3] of integer; beginnumber[1] : = 100; number[2] : = 103; number[3] : = 106; for i : = 1 to 3 dobeginwriteln(number[i]); end; end.
Популярно: Информатика
-
ancelina123403.09.2020 13:42
-
MtDew55772307.12.2022 11:36
-
niktos3004200203.09.2022 12:30
-
Klimg06.03.2022 08:39
-
IKristin18.10.2022 05:53
-
44447711.03.2020 21:14
-
ololeg126.12.2020 18:20
-
andreitwin17.03.2020 01:10
-
pashnina37907.11.2022 09:08
-
ZEN2424.12.2022 01:54