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

javascript:var ч, есть = false; while ((ч = prompt()) gt; 0) if (!есть amp;amp; ч % 2 == 0 amp;amp; ч % 8 != 0) есть = true; alert(есть ? "Есть." : "Нету.");

javascript:var м = [], ч; while ((ч = prompt()) gt; 0) м.push(ч); alert(м.filter(function (зн) return зн % 2 == 0 amp;amp; зн % 8 != 0; ).length gt; 0 ? "Есть." : "Нету.");

1. Цикл

var a,k:integer;

begin

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

readln(a);

while alt;gt;0 do

begin

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

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

readln(a)

end;

if k gt; 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 alt;gt;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 lt;gt; 8) then k:=k+1;

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

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

end.