program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )
Ответ дал: Гость
var
x,y: real;
begin
readln(x);
y: =7*sin(x)*sin(x)-0.5*cos(x);
writeln(y);
end.
Ответ дал: Гость
для начала переведем кбайты в биты:
2500кбайт=2500*1024*8=20480000бит,
затем найдем искомое время: t=объём файла/скорость передачи,
t=20480000/1024000=20 секунд
Ответ дал: Гость
налить в 9-литровое 9 литров
отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое
налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров
Популярные вопросы