Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program ml; uses crt; var x,i: integer; w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0); end; readkey; end.
v=331+0.6t
в зимний день- v=331+0.6*(-35)=310 м/с
в летний день- v=331+0.6*30=349 м/с
3750*1024*8/2/60 бит в секунду
var x,y: real;
begin
read(x);
if x< =10 then y: = 210
else y: = x*x*x;
writeln(y);
end.
Популярные вопросы