Предмет: Информатика, автор: dfhgdrcjjp5m6j6

Срочно!срочнооо !!!срочно ребят

Приложения:

Ответы

Автор ответа: alconafft
0
var b,s:real;

i:integer;

begin

Writeln('Привет,я-alconafft');

writeln('ввеидте число b');

readln(b);

for i:=1 to 5 do

begin

s:=(i+(b*b))/(sqr(sin(i)));

end;

writeln(s);

end.
Похожие вопросы
Предмет: Литература, автор: dimasmirnov45reg