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.
А B не А А и В А и В или не А
0 0 1 0 1
0 1 1 0 1
1 0 0 0 0
1 1 0 1 1
А почему написано в задании, что ученики 11 класса?
var
a, b, sum, index: word;
begin
sum := 0;
read(a,b);
for index := 1 to b do sum += a;
write(sum);
end.
Пусть K - количество символов в одном из первоначальных сообщений.
Тогда:
K*8 бит = K*8/8 байт = K байт - объем одного первоначального сообщения
2*K*16 бит = 2*K*16/8 байт = 4*K байт - объем полученного сообщения
4*K - 2*K = 240 ⇒ K = 120
Ответ: 120 символов