1.Даны три числа .возвести в квадрат те из них,значение которых отрицательны и найти их сумму.(Паскаль)2.Составить программу ,реализующую эпизод сказки: Спрашивает .куда предпочитает пойти гурой (Налево,направо или прямо) и печатает ,что его ждет в каждом случае

Задать вопрос

Войти

АнонимИнформатика19 декабря 15:47

Даны 3 числа. Возведите в квадрат те из них значения которых отрицательны. (записать программу на языке паскаль).

или решение1

Блохин Даниил

program zz1;

var a, b, c:integer; // вводим переменные целого типа

begin

write(' введите первое число '); // вводим с клавиатуры первое число

read(a);

write(' введите второе число '); // вводим с клавиатуры второе число

read(b);

write(' введите третье число '); // вводим с клавиатуры третье число

read(c);

if a < 0 then a:=sqr(a); // проверяем на отрицательность введенные числа

if b < 0 then b:=sqr(b);

if c < 0 then c:=sqr(c);

// выводим

write(' полученные числа ', a, ' ',b, ' ',c );

end.

Рала