Регистрация
sab1na666
26.04.2021 19:11
Информатика
Есть ответ 👍

Используя подпрограмму вычислить диагональ квадрата, если дана площадь(Pascal)

255
404
Посмотреть ответы 2

Ответы на вопрос:

КлименковЛеонид
КлименковЛеонид
4,8(37 оценок)

program prog;

var square:Extended;

begin  

readln(square);

square := sqrt(square);

writeln(square);

end.

matany57
matany57
4,7(16 оценок)

program series;

var i,n: integer;

x,s: real;

begin

write ('ввести число n: ');

readln (n);

s: =0;

for i: = 1 to n do

begin

write ('ввести число x: ');

readln (x);

s: =s+x

end;

writeln ('сумма чисел - ',s)

end.

Популярно: Информатика