Напишите программу, которая в последовательности натуральных чисел определяет, есть ли в последовательности четные числа, не оканчивающиеся на цифру 8.

Вход: программа получает на вход последовательность натуральных чисел, заканчивающихся нулем. Количество чисел не превышает 1000, а сами числа не превышают 30000.

напишите 2 варианта: просто и через массив

1. Цикл

var a, k:integer;

begin

write ('Введите число: ') ;

readln (a) ;

while a0 do

begin

if (a mod 2 = 0) and (a mod 10 8) then k:=k+1;

write ('Введите число: ') ;

readln (a)

end;

if k > 0 then writeln ('В последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln ('В последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.

2. Массив через цикл

var a, k, i:integer;

p:array [1 ... 1000] of integer;

begin

repeat

write ('Введите число: ') ;

readln (a) ;

if a0 then

begin

i:=i+1;

p[i]:=a

end

until a=0;

for a:=1 to i do

if (p[a] mod 2 = 0) and (p[a] mod 10 8) then k:=k+1;

if k > 0 then writeln ('В последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln ('В последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.

jа vascript:var ч, есть = false; while ((ч = prompt ()) > 0) { if (! есть && ч % 2 = = 0 && ч % 8! = 0) есть = true; } alert (есть? "Есть." : "Нету.") ;

jа vascript:var м = [], ч; while ((ч = prompt ()) > 0) { м. push (ч) ; } alert (м. filter (function (зн) { return зн % 2 = = 0 && зн % 8! = 0; }). length > 0? "Есть." : "Нету.") ;