Срочно! Помогите, пожалуйстаДаны два разных числа a и b .Если a

Безотлагательно! Помогите, пожалуйста
Даны два различных числа a и b .Если a меньше b, то вычислить их творенье a*b, в неприятном случае- разность квадратов (a^2-b^2).Итог вывести на экран

Задать свой вопрос
Антон
if a < b then writeln(a*b) else writeln(sqr(a)-sqr(b))
1 ответ
Var a, b, rezultat: integer;

begin

writeln(Введите значения a и b:);
readln(a, b);

if a lt; b then
rezultat:=a*b
else
rezultat:=a*a-b*b

writeln(rezultat);

end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт