Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
рождения 30.05.95
300
(12-3): (4+5)=1
1х2х3-4+5-6=1
(12: 3+4+5): (6+7)=1
(1+2-3+4+5+6-7): 8=1
1280*800*24/19800 секунд
var s,a,i: real;
begin
repeat
writeln("вес следущего пасажира kg");
read(a);
s: =s+a;
if s< 8000 then
i: =i+1;
until s> =8000
writeln(i);
end.
var b,a,i: real;
read(a,b);
a: =a+a*0.03;
until a> =b
var i,s: integer;
for i: = 1900 to 1999 do begin
s: =s+365;
if (i mod 400=0) or ((i mod 4 = 0) and (i mod 100< > 0)) then
s: = s+1;
end;
writeln(s);
Популярные вопросы