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)источник:задача на доске приемник:доска(вроде) носитель:ученик
вот например так надо делать
===== PascalABC.NET =====
begin
var a := ArrRandom(20, 0, 100);
a.Println.Where(p -> p mod 5 = 0).Max.Println
end.
Не парься,поймешь,это временно)))там свой принцип,спраси у информатички)
<u>данные</u> - это информация, обрабатываемая и хранящаяся на компьютере