Введите с клавиатуры 5 произвольных чисел и найдите корень квадратный из суммы их
ДжонниМультяшка
2
19.05.2019 04:10
1
Другие вопросы по теме Информатика
Violent111
10.12.2021 09:05
Хурем
10.12.2021 09:07
lllkjhgf
10.12.2021 09:07
bbll1998
07.11.2019 06:25
Pppddddd
30.05.2019 20:30
RownBitter
17.03.2019 17:20
ArseniiB1
17.03.2019 17:20
Saveliy111
17.03.2019 17:20
Популярные вопросы
- Кчему может снижение эритроцитов и гемоглобина в крови может к аллергии малокровию...
1 - Центральный угол на 15 градусов больше острого вписаного угла опираегоща на ту же...
1 - Лимон и два апельсина стоят вместе 255 рублей, а апельсин и два лимона-285 рублей.сколько...
3 - Спиши слова . вставь букву и или е...
1 - Три автомашины могут перевезти груз,работая отдельно: первая- за 6 часов, вторая-...
1 - 40 найдите проекцию силы действующей на тело массой 500 кг если скорость изменяется...
2 - Площадь равнобедренного треугольника abc 48 см квадратных. найти его периметр если...
2 - На подносе, длиной 55 см лежит печенье. каждое печенье занимает 20см². на подносе...
2 - Полноводная речка текущая в двуречье....
1 - Отметь штриховкой на контурной карте один четырёхугольник, образованный градусной...
2
var
a,i,sum:integer;
begin
for i:=1 to 5 do
begin
readln (a);
sum:=sum+(i*i*i);
end;
writeln (sqrt(sum));
end.
program zadacha;
uses crt;
var a,b,c: integer;
begin
writeln('Введите 3 числа');
readln(a,b,c);
writeln(sqrt(a*a*a+b*b*b+c*c*c));
readln;
end.