Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
ОКЕАН МОРЕ РЕКА
Тихий океан. Азовское Волга
Индийский Черное Дон
Долговременная и кратковременная
1. Пишешь ЕСЛИ введенное число>=13:
выведите ХОРОШО
Если<=13
выведите плохо.
2. Вводится ав
если остаток от деления ав на 10 больше или равен частному от деления на 10
--- Выведите остаток
Если частное от деления ав на 10 больше остатка
------выведите частное