Program pr; uses crt; Var x,a:real; Begin Writeln('стоимость диска'); readln(x); Writeln('сколько у вас руб.'); readln(a); if a>=x then Writeln('хватит') else Writeln('не хватит');
readln; end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
