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

javascript: var ч, есть = false; while ((ч = > 0) { if (! есть & & ч % 2 == 0 & & ч % 8 ! = 0) есть = true; } alert(есть ? "есть." : "нету.");

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

1. цикл

var a,k: integer;

begin

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

readln(a);

while a< > 0 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 a< > 0 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.