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

Написать программу которая из 2х введённых с клавиатуры чисел положительное числ?? устраивает а отрицательное возводит в квадрат
Категория: Информатика 3 года назад
На вопрос 3 года назад
Medina Gaponenko
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.
Ответ получен 3 года назад
ГУЛЯ МОСКАЛЕНКО

Пожалуйста зарегистрируйтесь/войдите для ответа на вопрос.  Нажмите для входа

Войти на сайт