Регистрация
Войти
Стать экспертом Правила
Информатика

55 поинтов!!!!!Составьте программу, которая выводит квадрат этого числа, если оно отрицательное или корень квадратный из этого число, если оно положительное. Pascal

ОТВЕТЫ

program z1;

var a:integer;

begin

write('a = ');

readln (a);

if a<0 then write ('a^2 = ',sqr(a));

if a>0 then write ('sqrt(a) = ',sqrt(a));

end.

619
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам