Question

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

Answer 1

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.

Answer 2

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 ? "Есть." : "Нету.");