Написать программу которая из 2х введённых с клавиатуры чисел положительное число устраивает а отрицательное возводит в квадрат

Написать программу которая из 2х введённых с клавиатуры чисел положительное число устраивает а отрицательное возводит в квадрат
Гость
Ответ(ы) на вопрос:
Гость
var a,b:integer; begin write('Введите A=');read(a); write('Введите B=');readln(b); if a<0 then writeln('a=',sqr(a)) else writeln('a=',a); if b<0 then writeln('b=',sqr(b)) else writeln('b=',b); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы