1)дано 2 числа. написать программу которая выведет на экран сообщение: четных чисел нет или четное число есть. и если есть то какое. паскаль это

Program z1; var a,b,c,d,e: integer; begin writeln('введите числа: '); write('первое число (a): '); read(a); write('второе число(b): '); read(b); if (a mod 2=0) then c: =a; if (b mod 2=0) then d: =b; if (a mod 2=0) or (b mod 2=0) then writeln('среди введённых чисел присутствует чётное число') else writeln('среди введённых чисел нет чётных чисел'); if (c=a) then writeln('чётное число: ',c); if (d=b) then writeln('чётное число: ',d); end.

Const n=15; var a: array[1..n] of integer; i,max,imax: integer; p: real; begin randomize; for i: =1 to n do begin   a[i]: =random(21);   write(a[i]: 3);   end; writeln; max: =a[1]; imax: =1; for i: =2 to n do   if a[i]> max   then begin max: =a[i]; imax: =i; end; writeln('max = ',max,'   imax = ',imax); p: =1; if imax > n div 2+1   then for i: =n div 2+2 to imax-1 do p: =p*a[i]   else for i: =imax+1 to n div 2 do p: =p*a[i]; writeln('p = ',p); end. пример:   16 14 14 20   6 12 16 15   7   0 19 17   0   7 14 max = 20   imax = 4 p = 1152

#include < iostream> #include < math.h> #include < cstdlib> using namespace std; int main() { setlocale(lc_all, "russian"); int x, y; cout < < "x="; cin > > x; cout < < "y="; cin > > y; cout < < "\n\n\n" < < "среднее арифметическое кубов чисел x и y: \n" < < "(x^3+y^3)/2=" < < ( ( pow(x,3) + pow(y,3) ) / 2 ) < < '\n' < < "среднее модулей чисел: \n" < < "(abs(x)*abs(y))/2=" < < ( ( abs(x) * abs(y) ) / 2 ) < < "\n********************\n" < < "исходные данные\n" < < "x=" < < x < < '\n' < < "y=" < < y < < '\n' < < "********************"; }