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

Question

Информатика

Светозара

1 ноября, 19:53

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

+5

Ответы (1)

Знаете ответ?

Тасюта · Answer 1

Program pr;

uses crt;

Var x, a:real;

Begin

Writeln ('стоимость диска') ;

readln (x) ;

Writeln ('сколько у вас руб.') ;

readln (a) ;

if a>=x then Writeln ('хватит')

else Writeln ('не хватит') ;

readln;

end.