Напишите код на pascal abc, информатика 8 класс,
лолпа
1
18.04.2020 17:54
0
Другие вопросы по теме Информатика
Alinasia
16.05.2020 22:30
ilyagammershmi
27.09.2020 10:19
путникспутник
30.04.2020 18:20
кадитагаев
30.04.2020 18:20
вова985
06.05.2020 13:19
Dlana
25.11.2020 13:10
kristinakwai
25.11.2020 13:10
talipovskiyt
18.03.2022 16:14
Популярные вопросы
- Втреугольнике авс угол с = 90 градусов, угол а = 45 градусов, ас...
3 - Участок цепи состоит из двух последовательно соединенных проводников...
1 - Мальчик нарисовал пять лучей с началом о. сколько всего получилось...
2 - Витя и костя придумывали для лобзика .за 10 минут придумали 30 .сколько...
1 - 4класса номер 406 за 1 день лыжники километров за 7часов, за второй...
1 - Решите уравнение: 15 умножить на (к-0,2)=21...
1 - Найдите сумму первых пятнадцати членов арефметичкской прогрессии,...
1 - Какое окончание у прилагательного в словосочетание плакуч.. ивы,...
3 - Как правильно расставить знаки препинания в этом предложении? в...
2 - Поставить существительные в нужной форме: тяжелой (ноша), холодным...
1
program qq;
var n,i:integer;
P:real;
begin
P:=1;
read(n);
for i:= 1 to n do begin
if n = 1 then continue;
P:=(1 - (1/sqr(n)))* P;
end;
write(P);
end.
Объяснение:
continue т.к формула начинается с двух.