Question

Задачи из файла выполнить в паскаль

Answer 1

1.2.2:

program time;

var k: Byte;

begin

   Readln(k);

   Writeln(k * 40 + 5 * (k-1) + 80);

end.

1.2.3: (Вывод: 32)

program number;

begin

   Writeln((150 * 2 - 40) / 8);

end.

1.2.4:

program calc;

var sant: Integer;

begin

   Readln(sant);

   Writeln(sant div 100000, ' км ', sant mod 100000, ' м');

end.