Var a,b: integer; begin write('введите два числа: '); readln(a,b); a: =a+b; if a mod 5 = 0 then a: =a+1 else a: =a-2; writeln(a); end. введите два числа: 17 13 31
Спасибо
Ответ дал: Гость
1) 3 яблока;
2) 4 яблока;
3) 5 яблок;
4) n+1 яблок.
объяснение: если доставать яблок столько же, сколько и сортов, то они могут быть все разных сортов.
если же доствать яблок на одно больше, чем количество сортов, и даже если все кроме последнего разных сортов, то последнее обязательно будет одного и того же сорта с каким-нибудь из остальных.
Ответ дал: Гость
var a,b: string; begin cls; read(a); b: =a; write('b')end.
Популярные вопросы