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.
А где задания?
Хотя бы фото отправить надо.
Begin
m:=1;
k:=1;
read(n);
i:=1;
while i<>n do begin
k:=k+i;
m:=m*i;
i:=i+1;
end;
write(k,' ',m);
end.
Переменные, думаю, сами опишете)
For(i = 0; i < N; i++)
{
sum += a[i] * a[i];
}