Предмет: Информатика,
автор: Andrei128
Допоможіть написати програму мовою Паскаль за цією задачою!
На одному маленькому квадратному безлюдному острові зі стороною а м. перебували к Робінзонів. Чи не порушені їхні права на житло, якщо на кожного Робінзона повино придбати S м^2 площі острова? Скільком новим Робінзонам ще вистачить місця на острові?
Ответы
Автор ответа:
0
program a;
var k:integer;
a,s:real;
begin
readln('a= ',a);
readln('k= ', k);
readln('s= ',s;);
n=int(a*a/s-k);
writeln('Осталось место для ', n, ' робинзонов');
readkey;
end.
Интересные вопросы
Предмет: Математика,
автор: PoJIuBbe
Предмет: Физкультура и спорт,
автор: GameBro2207
Предмет: Алгебра,
автор: oleyniklilia
Предмет: Химия,
автор: Ученик888888