Решите пожалуйста ** компьютере задания 5,6,9.Срочно нужно.Задание 9. В каждом углу...

Question

Решите пожалуйста на компьютере задания 5,6,9.
Срочно нужно.

Задание 9. В каждом углу комнаты сидело по кошке. У каждой кошки x котят. Сколько всего ног? Составьте программу для решения задачи и вывода результата на экран. Значение переменной x ввести с клавиатуры.
________________________________________________
Заранее СПАСИБО!!!)

---

Answer 1

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

№4

begin
  var a:=ReadReal('Укажите вес яблок известной стоимости:');
  var b:=ReadReal('Сколько стоят эти яблоки?');
  var k:=ReadReal('Вес яблок, стоимость которого хотите узнать:');
  Writeln('Эти яблоки будут стоить ',b/a*k:0:2)
end.

Пример
Укажите вес яблок известной стоимости: 6.2
Сколько стоят эти яблоки? 304
Вес яблок, стоимость которого хотите узнать: 2.5
Эти яблоки будут стоить 122.58

№5

begin
  var (a,b,h):=ReadReal3('Введите длину, ширину и высоту комнаты:');
  Writeln('Площадь поверхности ее стен равна ',2*(a*h+b*h))
end.

Пример
Введите длину, ширину и высоту комнаты: 5.7 4.15 2.75
Площадь поверхности ее стен равна 54.175

№9

begin
  var x:=ReadReal('Число котят у кошки:');
  Writeln('Общее количество ног равно ',4*4*(1+x))
end.

Пример
Число котят у кошки: 3
Общее количество ног равно 64