<span>var
i,summ: real;
begin
for i := 2 to 50 do begin
summ :=summ+s</span><span>qrt(i)</span><span>;
i:=i+1;
end;
writeln(summ)
end.
//как то так но ошибка вылетает я хз </span>
В медицине (применяется в процессе обучения хирургов)
В науке (для моделирования разных процессов )
В искусстве (компьютерная мультипликация)
В развлечениях (компьютерные игры)
В рекламирование (рекламные ролики )
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(14,-99,99); mas.Println;
var a:=mas[1]**3; var b:=mas.Where(t-> t> a).Count;
if b=0 then Writeln('поиск неудачен') else
Writeln('Таких элементов ->',b);
end.