Различаются экраном а похожи функциями
Var n:longint;
c:real;
begin
write ('N = ');
readln(n);
if (n mod 2 = 0) and (n>0) then c:=n/4 else
if (n mod 2 = 0) and (n<0) then c:=n*5 else
if (n mod = 1) then c:=sqr(n);
write (c:0:2);
end.
1) 3 яблока;2) 4 яблока;3) 5 яблок;4) n+1 яблок.Объяснение: если доставать яблок столько же, сколько и сортов, то они могут быть все разных сортов.<span>Если же достfвать яблок на одно больше, чем количество сортов, и даже если все кроме последнего разных сортов, то последнее обязательно будет одного и того же сорта с каким-нибудь из остальных.</span>
Библиотеки нужно добавить самому.
Программу проверила на компиляторе,можно с ней работать.
Там есть в условии небольшая опечатка, в условии одном дана С (большая), но сама она нигде не дана, поэтому я использовала с (маленькую).
Если вдруг нужно будет самому ввести а, b и c, добавь сюда функцию cin >> a >> b >> c. Если нет, заранее приравняй к этим переменным какие-то значения.
int main()
{
int M, a, c, b, S, f, i;
int k[6] = {0, 1, 2, 3, 4, 5};
M = (a*a - c*c)*(a-b);
for (i=0; i<7; i++)
{
if (M == k[i])
S = M/(a*c);
else S = (a-c)*M;
}
if (S == M)
f = (a*b*S)/с;
else f = S-M;
return 0;
}