Чтобы узнать четное ли число, надо разделить его на 2. если делится без остатка, - значит четное. если с остатком - нечетное. в паскале остаток от деления дает функция mod. например: (a mod 2) даст остаток от деления а на 2. если (a mod 2)=0 то число чётное, иначе нечетное.
Паскаль АВС. Программу можно использовать не только для 4-значных чисел, для этого надо только поменять значение n в строке const n=4 на нужное.
Program Alyatu; uses crt; const n=4; var i,z,s:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Используя признак делимости, программа оперделяет делится ли введённое 4-значное число на 3'); writeln('Введите число'); repeat readln (z); until ((z>0) and (z<power(10,n))); for i:=1 to n do begin s:=s+z mod 10; z:=z div 10; end; if (s mod 3=0) then Writeln('Число делится на 3') else Writeln('Число не делится на 3'); end.
Program Ainur59; uses crt; const n=10; var i,j:integer; matr:array[1..n,1..n] of integer; diag:array[1..n] of integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln('Для заданной квадратной матрицы сформировать одномерный массив из её диагональных элементов'); randomize; writeln('Матрица: '); for i:=1 to n do begin for j:=1 to n do begin matr[i,j]:=random(100)-50; write(matr[i,j]:4,' '); if i=j then diag[i]:=matr[i,j]; end; writeln(); end; writeln(); writeln('Mассив диагональных элементов:'); for i:=1 to n do write(diag[i]:4,' '); end.
