var
a, b, c, d, kol: integer;
begin
write('Введите четыре числа A, B, C и D через пробел: ');
readln(a, b, c, d);
if a mod 2 = 0 then inc(kol);
if b mod 2 = 0 then inc(kol);
if c mod 2 = 0 then inc(kol);
if d mod 2 = 0 then inc(kol);
if kol >= 2 then writeln('Среди введенных чисел есть два или более четных числа')
else writeln('Среди введенных чисел менее двух четных');
end.
Объяснение:
Другой вариант (покороче):
var
a, b, c, d: integer;
begin
write('Введите четыре числа A, B, C и D через пробел: ');
readln(a, b, c, d);
if ((a mod 2) + (b mod 2) + (c mod 2) + (d mod 2)) <= 2
then writeln('Среди введенных чисел есть два или более четных числа')
else writeln('Среди введенных чисел менее двух четных');
end.
( Решение на Pascal )
Не совсем ясно, каким образом составители задачи планировали найти среди случайных вещественных 10 чисел в диапазоне от -60 до 100 числа, кратные 8.
Но ради Бога:
var A: array [1..10] of real;
var i,s: integer;
begin
s:=0;
randomize();
for i:=1 to 10 do
begin
A[i]:=random()*160-60;
write(A[i]:3:5,' ');
if (A[i]>10) and (A[i]-trunc(A[i])=0)
and (trunc(A[i]) mod 8 =0) then
s:=s+1;
end;
writeln();
writeln('Количество элементов массива,',
'кратных числу 8 и больших 10: ',s);
end.