Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
1.123456789-номер телефона
2.мама помыла посуду-ткстовая информация
3.какой нибудь рисунок
4.музыка
5.кино
а)
p,d,h: real;
readln(h);
p: =1200*9.8*h;
writeln(p);
б)
m,h,r: real;
readln(r);
m: =1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
i,k: integer;
m,h,r,s: real;
readln(k);
s: =0;
for i: =1 to k do
s: =s+m;
writeln(s);
var a: integer; beginreadln(a); write (a div 10); end.
Популярные вопросы