Найти сумму квадратов чисел n1 и n2 pascal abc

tigranmesropyan tigranmesropyan    1   29.09.2019 23:20    15

Ответы
ksenia1unicorn ksenia1unicorn  09.10.2020 04:01

var

n1 : real;

n2 : real;

rez : real;

begin

write ('Введите число n1: ');

readlnI(n1);

write ('Введите число n2: ');

readln(n2);

rez := sql(n1)+sql(n2);

writeln('Результат выполнения: ',rez);

end;

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