Написать программу на языке паскаль. напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. программа получает на вход количество чисел в последовательности, а затем сами числа. кто правильно напишет поставлю лучшее !
245
461
Ответы на вопрос:
Var n,a,i,k: integer; begin write('n = '); readln(n); k: =0; writeln('вводите числа: '); for i: =1 to n do begin readln(a); if a mod 4 = 0 then k: =k+1; end; writeln('k = ',k); end. пример: n = 5 вводите числа: 15 24 73 48 94 k = 2
Var a: array [1..100] of integer; chis,i: integer; begin readln(chis); for i: =1 to chis do readln(a[i]); write('числа кратные 4: '); for i: =1 to chis do if (a[i] mod 4 = 0) then write(a[i], ' '); end.
Популярно: Информатика
-
lcjewfyjozo07501.06.2023 21:39
-
Tillll18.01.2023 23:35
-
1Gamzatik117.06.2021 00:22
-
ssnn70p0aegz02.03.2023 12:44
-
EnsteinMEGAMOZG21.02.2020 10:50
-
eevelinka74222.11.2022 15:50
-
polinaaaaaaaaaiiii28.03.2020 21:08
-
ChelovekNosok20.08.2020 07:23
-
Mavl5817.09.2021 12:59
-
svetlana1968bup0c08303.01.2022 15:02