Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program bapehbe;
var
l, b, s : integer;
o : real;
begin
writeln (' skolko litrov varenya v tazy? ');
readln (l);
writeln (' kakaya emkost banok? ');
readln (b);
s: = l div b;
o: = l mod b;
writeln (' polnih banok_', s);
writeln (' litrov ostaloc_', o: 2: 2);
readln;
end.
емкость неформатированного диска больше информационной емкости доступной для записи данных, т.е. отформатированного диска.
например провели 5 измирений плотности раствора. пусть 1 первое измирение n1, второе-n2, 3-n3, 4- n4,5- n5. тогда програма будет виглядеть так:
program n1;
uses crt;
var n1,n2,n3,n4,n5,s: real;
read(n1,n2,n3,n4,n5);
s: =(n1+n2+n3+n4+n5)/5;
write('s=',s);
2^6 = 64 - значит 6 лампочек
Популярные вопросы