Чтобы проверить, кратно ли число четырём, нужно написать такую проверку:
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.
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.
