Напишите программу на языке паскаль, которая в последовательности целых чисел определяет количество четных чисел кратных 3.программа получает на выход целые числа. количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0-признак окончания ввода, не входит в последовательность ).количество чисел не превышает 20. введенные числа [-30; 30]. программа должна вывести одно число: количество четных чисел, кратных 3. буду признательна!
killfa
3
21.08.2019 18:20
1 
Популярные вопросы
- Ученик в экспериментальной работе использовал плоскопараллельную пластинку,...
1 - НУЖНА Периметр равнобедренного треугольника АВС равен 20,6 см. Найдите...
2 - У выражение X + 4 / x - 3 : 3 x - 9 / x в квадрате плюс 8 Икс плюс 16...
1 - Задание 3. ( )Прочитайте отрывок из произведения М.М. Пришвина «Кладовая...
2 - ОДИН ПРИМЕР ВЛИЯНИЕ КОСМОСА НА ЖИЗНЬ НА ЗЕМЛЕ У МЕНЯ СОЧ...
1 - Напишите тезисы Жизнь и творчество М. А. Шолохова : 5 самых знаменательных...
3 - 603. Сгруппируйте слова по видам орфограмм «Употребление и неупотребление...
1 - Запишите три предложения о том, что нового вы узнали, используйте при...
2 - СДЕЛАЙТЕ СОЧ НА ДО СДАТЬ ДО 13:00 ПО КАЗАХСКОМУ ВРЕМЕНИ...
2 - Проанализируйте фрагмент произведения от слов «Смолкло всё опять кругом…»...
2
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.