Добавляйте качественное вложение у 1 птицы видны только ноги)))
1 страус,2 пеликан,3 пингвин,4 попугай
птица НЕ плавает 1,4
птица плавает И летает 2
птица летает ИЛИ плавает 2,3,4
птица плавает И НЕ летает 3
птица летает И НЕ плавает 4
птица НЕ летает И НЕ плавает 1
после запятой значение переменной
writeln ('s = ', s);
Var
a, b: integer;
begin
readln(a, b);
if a * b < 0 then {если числа разных знаков}
writeln(2 * a, ' ', 2 * b)
else if a > 0 then begin{иначе одного знака и больше нуля}
if a > b then
writeln((a + b) / 2, ' ', b)
else
writeln(a, ' ', (a + b) / 2)
end
else begin
if a > b then
writeln(a, ' ', -b)
else
writeln(-a, ' ', b)
end;
end.
Var
i,s:integer;
begin
i:=1; s:=0;
while i<=99 do
begin s:=s+i; i:=i+2 end;
Writeln(s)
end.
Тестовое решение:
2500