var
N, i, P, O, Z : Integer;
R : Real;
begin
Write('n = '); ReadLn(N);
P := 0; O := 0; Z := 0;
// для for // для while // для repeat
for i := 1 to N do // i := 0; // i := 0;
// while i < N do // repeat
begin // begin // Inc(i)
// Inc(i);
Write(i, ' число = '); ReadLn(R);
case sign(R) of
+1 : Inc(P);
-1 : Inc(O);
0 : Inc(Z);
end;
end; // end; // until i = N;
WriteLn('Процент положительных чисел: ', P*100/N);
WriteLn('Процент отрицательных чисел: ', O*100/N);
WriteLn(' Процент нулевых чисел: ', Z*100/N);
end.
1.Мы живем в бесконечном пространстве, поэтому всегда интересно узнать, как выглядят структура и масштабы Вселенной. Глобальная вселенская структура представляет собою пустоты и волокна, которые можно разбить на сверхскопления, скопления, галактические группы, а уже в конце и сами галактики. Если снова уменьшать масштабы, то рассмотрим и звезды
2.Астрономи́ческая едини́ца-исторически сложившаяся единица измерения расстояний в астрономии. Исходно принималась равной большой полуоси орбиты Земли, которая в астрономии считается средним расстоянием от Земли до Солнца.
Надеюсь,что ответ имеет пользу)
But, unfortunately, thoughts about the rainforest are dead.
Only imagine the place where beautiful bird sings,
And there you can have a rest, watch on its colorful wings.
Let’s save this all, it’s really important, friends,
Because who
If not us?
Перевод:
Есть много «важных» вещей в твоей голове,
Но, к сожалению, мысли о тропическом лесе погибли.
Только вообрази место, где красивая птица поёт,
И там ты можешь отдохнуть, наблюдая за её красочными крыльями.
Давайте спасём всё это, это очень важно, друзья,
Потому что кто,
Если не мы?