var
x,y,z:integer;
begin
write('X= ');
readln(x);
write('Y= ');
readln(y);
if x>= y then z:=x+y
else z:=1-x+y;
writeln('Z= ',z);
end
Первое 12/2=6
Второе 6/2=3
Третье 3 возводим в квадрат получится 3*3=9
Четвёртое 9 возводим в квадрат получится 9*9=81
Ответ: 1122
Таблица истинности - в приложении.
Var a,b,c:integer;
begin
a:=random(10);
writeln('a = ',a);
b:=random(10);
writeln('b = ',b);
c:=random(10);
writeln('c = ',c);
writeln('Среднее арифметическое = ',(a+b+c)/3);
end.
Пример:
a = 4
b = 2
c = 9
Среднее арифметическое = 5