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.
Чтобы проверить, кратно ли число четырём, нужно написать такую проверку:
if (х mod 4 = 0) then...
Это значит: "если остаток от деления числа х на 4 равен нулю, то..."
Программа:
Program P;
var
x,y: integer;
begin
var s:=' -=Alphaeus=- ';
for var k:=1 to 22 do begin write(s[k]); sleep(47) end;
writeln;writeln;
writeln('Введите числа:');
write('X = '); readln(x);
write('Y = '); readln(y);
if (x mod 4=0) or (y mod 4=0) then y:=y+3;
writeln('Результат:');
writeln('X = ',x);
writeln('Y = ',y);
end.
