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;
begin
read(a,b);
repeat
a: =a+a*0.03;
i: =i+1;
until a> =b
writeln(i);
end.
var i,s: integer;
begin
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);
end.
Поделитесь своими знаниями, ответьте на вопрос:
1.расположите в порядок возрастания единицы измерения инфомации. 1 байт 2 мегабайт 3 бит 4 терабайт 5 килобайт 2.сколько информации содержится в слове информатика, если в каждом символе 1 байт информации? 1. 11бит 2. 1024бита 3. 88бит 4. 10 байт 3.сравните (вставьте знаки < > =) 1024кб 10000бит 2мб 2000байт 128бит 16 байт 1кб 8192бита 4.запишите десятичные числа 251 и 77 в двоичной системе счисления( решение