Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
+2): 3+4): 5+6): 7+8): 9=1
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.
program prim;
var i,x : integer;
x: =1;
for i: =1 to 5 do
begin write (x,' ');
x: =x+2;
end;
a,m,n,k: real;
readln(m,n,k);
if (m+n+k)< (m*n*k) then
a: =m+n+k
else
a: =m*n*k;
writeln(a);
Популярные вопросы