var x,y,a,b,c : integer; begin writeln ('Яблоки кол-во цена'); readln (x,y); writeln ('Груши кол-во цена'); readln (a,b); writeln ('Сумма дене'); readln (c); x := x * y; a := a * b; if (x+a) <= c then writeln ('Хватит, останется:',c-(x+a)) else writeln ('Не хватит:',(x+a)-c); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
