напишите программки на паскаль.1) даны два числа. если они равны, то

Ответ:

Изъяснение:

1.

program raf105;

var a,b,c:real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a=b

 then c:= a**2+b**2

 else c:= a*b;

writeln('Вывод: ',c);

end.

2.

program raf105;

var a,b,c:real;

begin

write('Введите 2 числа: ');

readln(a,b);

if (alt;0) and (blt;0)

 then c:= a**2+b**2

 else c:= абс(a-b);

writeln('Вывод: ',c);

end.

1.

program raf105;

var a,b,c:real;

begin

write('Введите 2 числа: ');

readln(a,b);

if a=b

 then c:= a**2+b**2

 else c:= a*b;

writeln('Вывод: ',c);

end.

2.

program raf105;

var a,b,c:real;

begin

write('Введите 2 числа: ');

readln(a,b);

if (alt;0) and (blt;0)

 then c:= a**2+b**2

 else c:= абс(a-b);

writeln('Вывод: ',c);

end.

Язык программирования PascalABC