var
a,b,c,square:real;
begin
writeln('(a-b)²');
writeln('Введите значение a');
readln(a);
writeln('Введите значение b');
readln(b);
c:= a-b;
square:=sqr(c);
writeln('квадрат разности двух чисел = ',square);
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Написать код программы Pascal. Пользователь вводит два целых числа, а программа выводит на экран разность квадратов и квадрат разности этих чисел.
var
a,b,c,square:real;
begin
writeln('(a-b)²');
writeln('Введите значение a');
readln(a);
writeln('Введите значение b');
readln(b);
c:= a-b;
square:=sqr(c);
writeln('квадрат разности двух чисел = ',square);
end.
Объяснение: