Question

ПОМОГИТЕ ПОЖЛСТ!СРОЧНО!ЯЗЫК ПРОГРАМИРОВАНИЯ-PASCAL!!!

Answer 1

// Попробуйте, если что не так пишите

//If6

uses PT4;

begin

 Task('If6');

 var (a, b) := ReadReal2();

 if a > b then

   Write(a)

 else

   Write(b)

end.

//-------------------------------

//For4;

uses PT4;

begin

 Task('For4');

 var Price := ReadReal();

 for var i := 1 to 10 do

   Print(i * Price)

end.

Answer 2

Если захотите сами вводить числа и стоимость, закомментируйте строчки uses PT4 и Task('If6')/Task('For4') в обоих задачах, т.е. поставьте в начале тех строк такое //