Предмет: Информатика, автор: наташа1234567890123

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

Ответы

Автор ответа: garfild214
0

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

Похожие вопросы