объяснение: если доставать яблок столько же, сколько и сортов, то они могут быть все разных сортов.
если же доствать яблок на одно больше, чем количество сортов, и даже если все кроме последнего разных сортов, то последнее обязательно будет одного и того же сорта с каким-нибудь из остальных.
Ответ дал: Гость
program xxx;
var d, x1, x2, y1,y2 : real;
begin
write('введите координаты 1 точки: ');
readln(x1, y1);
write('введите координаты 2 точки: ');
readln(x2, y2);
d: =sqrt(sqr(x2-x1)+sqr(y2-y1));
write('растояние между точками =', d);
readln
end.
Ответ дал: Гость
var
i: integer;
a: array[1..20] of integer;
function fn(x: integer): integer;
begin
if x mod 10 = 4 then fn: =x div 2
else fn: =x;
end;
begin
for i: =1 to 20 do
readln(a[i]);
for i: =1 to 20 do
begin
a[i]: =fn(a[i]);
writeln(a[i]);
end;
end.
Ответ дал: Гость
т.к 3 вида флагов, значит возводим число 3 в степень равную кол-ву флагов
Популярные вопросы