Question

Составить блок-схему и программу,  вычисляющую   р=х2+10, если х<0. Pascal ​

Answer 1

Исходный код:

program sqare;

var x, p: integer;

begin

 Readln(x);

 p := sqr(x) + 10;

 Writeln(p);

end.

Пояснение:

Определяем переменную x и p как целочисленные.

Вводим x с клавиатуры.

Считаем x²+10 и записываем в p. Использовалась функция sqr для получения числа в квадрате.

Выводим p