Question

Помогите срочно написать программу в паскале.номер 7.даю 50 баллов

Answer 1

// PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

// Внимание! Если программа не работает, обновите версию!

1) точно по заданию

begin

 var k := ReadInteger('k=');

 Writeln('К оплате, руб: ', 2.0 + (k > 100 ? (k - 100) * 2.5 : 0.0))

end.

2) по логике так должно быть

begin

 var k := ReadInteger('k=');

 if k <= 100 then Writeln('К оплате, руб: ', 2.0 * k)

 else Writeln('К оплате, руб: ', 200.0 + (k - 100) * 2.5)

end.