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.
#define MAX_SIZE_M 10#define MAX_SIZE_N 10#define MAX_RAND 100#define MIN_RAND 1
void main(){ int a[MAX_SIZE_N][MAX_SIZE_N];// объявили массив srand(time(NULL)); //Заполнение массива for(int i = 0; i < MAX_SIZE_N; i++) for (int j = 0; j < MAX_SIZE_M; j++) a[i][j] = MIN_RAND + rand() % MAX_RAND;
int sum = 0; //Считаем сумму for (int i = 0; i < MAX_SIZE_N; i++) for (int j = 0; j < MAX_SIZE_M; j++) if (a[i][j] % 2 == 1) { sum += a[i][j] * a[i][j]; } }