1 Обусловьте количество пассажиров, которые могут поместиться на борт самолёта
1 Обусловьте количество пассажиров, которые могут поместиться на борт самолёта грузоподъемностью 8т(вес каждого пассажира вводится с клавиатуры).
2 Исходный вклад в сберкассу составил А руб. Через сколько лет удастся запастись В руб. без учета дополнительных вкладов, если каждый год вклад увеличивается на 3%.
3 Обусловьте число суток с 1900 по 1999 года, если известно, что високосные годы - это те, у которых номер делится на 400 или те, у которых номер делится на 4, но не делится на 100.
Задать свой вопросvar s,a,i:real;
Begin
repeat
writeln("Вес следущего пасажира kg");
read(a);
s:=s+a;
if slt;8000 then
i:=i+1;
until sgt;=8000
writeln(i);
End.
var b,a,i:real;
Begin
read(a,b);
repeat
a:=a+a*0.03;
i:=i+1;
until agt;=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 100lt;gt;0)) then
s:= s+1;
end;
writeln(s);
End.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Русский язык.
Русский язык.
Разные вопросы.
Қазақ тiлi.
Английский язык.
Математика.
История.
Экономика.
Экономика.