1 Определите количество пассажиров, которые могут поместиться на борт самолёта грузоподъемностью

1.Program zz1;
var M, N, K: integer; //задаем переменные целого типа
begin

while M lt; 8000 do //организуем цикл, пока общая сумма меньше 8 т.
begin
writeln(Введите вес последующего пассажира); //вводим с клавиатуры число
readln(N);
M:=M+N; // получаем сумму
K:=K+1; //считаем пассажиров
end;
write( количество пассажиров =,K); // выводим ответ
end.
2.Program zz1;
var K: integer; //задаем переменную целого типа
a, b:real; //задаем переменные не целого типа
begin
writeln(Введите начальный вклад ); //вводим с клавиатуры число
readln(a);
writeln(Введите конечную сумму); //вводим с клавиатуры число
readln(b);
while a lt; b do //организуем цикл, пока общая сумма меньше 8 т.
begin

a:=a * 1.03; // получаем сумму вклада увеличенную на 3%
k:=k+1;
end;
write( количество лет =,K); // выводим ответ
end.
3.program zz1;
var r, i :integer; // задаем переменные целого типа
begin
for i:=1900 to 1999 do
begin
if (i mod 400 = 0)or((i mod 4 = 0)and(i mod 100 lt;gt; 0)) then r:=r + 356
else r:=r + 355; // вычисляем число суток
end;
write( число суток = , r); //выводим ответ
end.