Напишите программу на языке паскаль, которая в последовательности целых чисел определяет количество четных чисел кратных 3.программа получает на выход целые числа. количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность ).количество чисел не превышает 20. введенные числа [-30; 30]. программа должна вывести одно число: количество четных чисел, кратных 3. буду признательна!
286
383
Ответы на вопрос:
Program n1; const n=20; var a: array [1..n] of integer; i,k: integer; begin k: =0; for i: =1 to n do begin write('введите ',i,' число: '); readln(a[i]); if (a[i]=0) or (a[i]< =-30) or (a[i]> =30) then break; if (a[i] mod 2=0) and (a[i] mod 3=0) then k: =k+1; end; writeln('количество: ',k); end.
Популярно: Информатика
-
alinaby1321.06.2022 14:23
-
2312YQw04.11.2020 10:21
-
124taafo27.05.2021 04:03
-
LizaIvaskevich23.12.2020 02:22
-
света94011.03.2020 04:24
-
dashko4etckowa13.05.2023 13:07
-
Nastiusha280116.05.2023 16:05
-
Phkgd14.10.2021 13:40
-
Биіккесамға20.09.2022 10:54
-
shhfxecbhawc09.08.2020 04:51