Напишите программу, которая в последовательности натуральных чисел определяет, есть ли в последовательности четные числа, не оканчивающиеся на цифру 8. вход: программа получает на вход последовательность натуральных чисел, заканчивающихся нулем. количество чисел не превышает 1000, а сами числа не превышают 30000. напишите 2 варианта: просто и через массив
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.
javascript:var ч, есть = false; while ((ч = prompt()) > 0) { if (!есть && ч % 2 == 0 && ч % 8 != 0) есть = true; } alert(есть ? "Есть." : "Нету.");
javascript:var м = [], ч; while ((ч = prompt()) > 0) { м.push(ч); } alert(м.filter(function (зн) { return зн % 2 == 0 && зн % 8 != 0; }).length > 0 ? "Есть." : "Нету.");