Программист вводит с клавиатуры число a. Если оно положительное, то помещает в эту ячейку его квадрат, выводит текст «Оно положительное считали квадрат!» и запрашивает еще одно число, выводит его куб на экран. На последней строке выводит значение ячейки а. Код на PascalABC

kate832 kate832    3   28.01.2021 17:01    2

Ответы
даниил1агапов даниил1агапов  27.02.2021 17:04

var

 a,b:integer;

begin

 write('Число А - '); readln(a);

 if a mod 2 = 0 then begin

   writeln('Оно положительное считали квадрат!');

   write('Введите ещё одно число - '); readln(b);

   writeln('Куб числа ',b,' = ',sqr(b)*b);

   writeln('Квадрат числа ',a,' = ',sqr(a));

 end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика