Var A : Integer;
Begin
Readln(A);
If Odd(A) then A:=A*5 else A:=A div 4;
Writeln(A);
end.
Один ученик собрал за один час работы М корзину лимонов
З новою. думкою і новими словами
1)1 байт=8 бит
2)22•8=176 бит
3)176:8=22 байта
Ответ: фраза Пушкин - наше всё! займёт 22 байта.
If (x>=-5) and (x<5) then label1.caption
(Принадлежит') else Label1.caption ('Не
принадлежит');
Х=1 Принадлежит