Предмет: Информатика,
автор: itstaniy
Составить программу в паскале
Даны три числа. Возвести в квадрат те из них, значения которых не отрицательны, а в третью степень отрицательные
ПОЧЕМУЧКА3214:
Что вывести нужно?
Ответы
Автор ответа:
0
var
a, b, c: Int64;
begin
Write('a = ');
Read(a);
Write('b = ');
Read(b);
Write('c = ');
Read(c);
if (a >= 0) then
WriteLn(a * a)
else
WriteLn(a * a * a);
if (b >= 0) then
WriteLn(b * b)
else
WriteLn(b * b * b);
if (c >= 0) then
WriteLn(c * c)
else
WriteLn(c * c * c);
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: rtyuioplkjhgf
Предмет: Русский язык,
автор: pivko72marmok
Предмет: Другие предметы,
автор: tatiana1451
Предмет: Русский язык,
автор: polinka098bi
Предмет: Алгебра,
автор: supervalad