Итак:
на один символ было 16 бит, стало 8, таким образом:
8x=16x-240, отсюда:
x=30 символов
Var n,i:integer;
begin
read(n);
i:=1;
repeat
begin
if i mod 3=0 then
writeln(i);
end;
i:=i+1;
until n<i
end.
1. Каждый солдат не мечтает стать генералом.
2. Некоторые из солдат мечтают стать генералами.
3. Некоторые из солдат не мечтают стать генералами.