музыкальный диск стоит x рублей n копеек. у вас а рублей. хватит ли денег на покупку диска? запись должна быть в виде разветвляющегося алгоритма.

Program pr;
uses crt;
Var x,a:real;
Begin
Writeln(стоимость диска);
readln(x);
Writeln(сколько у вас руб.);
readln(a);
if a>=x then Writeln(хватит)
   else Writeln(не хватит);

   readln;
   end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!