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.Астрономи́ческая едини́ца-исторически сложившаяся единица измерения расстояний в астрономии. Исходно принималась равной большой полуоси орбиты Земли, которая в астрономии считается средним расстоянием от Земли до Солнца.
Надеюсь,что ответ имеет пользу)
Дорогая Настя! Пишу тебе с Турции. Я приехала на отдых, мне хорошо, но все же не хватает родных краев и вас всех! Как вы? Чего новенького?
У нас все хорошо. Вокруг жара, солнце. Неподалеку от отеля пляж. Мама сейчас загорает на пляже. Она на целый день туда уходит, её не слышно. Антошка завел много друзей и сейчас играет с ними в настольный футбол. А папа плавает в бассейне. Ну а я пишу тебе письмо.
Напиши мне поскорее.
Люблю... На веки подруги!