Question

Теплоход рассчитан на А человек пассажиров, В-членов команды, спасительная шлюпка вмещает С человек. Сколько должно быть шлюпок, чтобы всех спасти?
нужно составить блок схему и программу

Answer 1

Var a,b,c:integer;
k:real;
BEGIN
write('Введите число пассажиров: ');
readln (a);
write('Введите число членов команды: ');
readln (b);
write('Введите число мест в спасательной шлюпке: ');
readln (c);
k := (a + b)/c;
if frac (k) <> 0 then k := int(k) + 1
else k := k;
writeln('Чтобы всех спасти необходимо ',k, ' шлюпок')
END.