Номер 4
program Other;
var
a,b: integer;
begin
a:=5;
b:=0;
if a = 1 then
{Next action...}
else
begin
b:=b+a;
a:=a-1;
end;
end.
Открой учебник по окружающему миру, 1 часть, 4 класс. на 56 стр есть картинка.
ну или как то так
Var A:integer;
Begin
Read(A);
A:= A mod 12;
if (A>=0)and(A<3) then Write(Зима);
if (A>2)and(A<6) then Write(Весна);
if (A>5)and(A<9) then Write(Лето);
if (A>8)and(A<=11) then Write(Осень);
End.
Т.к 30 символов, то умножаем на 2 и получаем 60 байт.Теперь умножаем на 8 и получаем 480бит.
Ответ:2