Program up1;
var q:integer;
begin
writeln('введите число');
read(q);
if q>0 then write('число больше 0') else write('число меньше 0');
end.
маршрутов (1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3)
А перевода на русский нет случаянно?
1) 3 яблока;2) 4 яблока;3) 5 яблок;4) n+1 яблок.Объяснение: если доставать яблок столько же, сколько и сортов, то они могут быть все разных сортов.<span>Если же достfвать яблок на одно больше, чем количество сортов, и даже если все кроме последнего разных сортов, то последнее обязательно будет одного и того же сорта с каким-нибудь из остальных.</span>
Для трех логических переменных делаем таблицу из 8 строк: