Напишите программу на языке паскаль, которая в последовательности - вопрос №7015464 от ваня1259 21.03.2022 11:46

Question

Информатика: Напишите программу на языке паскаль, которая в последовательности целых чисел определяет количество четных чисел кратных 3.программа получает на выход целые числа. количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность ).количество чисел не превышает 20. введенные числа [-30; 30]. программа должна вывести одно число: количество четных чисел, кратных 3. буду признательна!

ваня1259 · Answer

Program n1;const n=20;var a: array [1..n] of integer;i,k: integer;begink:=0;for i:=1 to n dobeginwrite( введите ,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....