Ответ написан в файле.
Через логическую связку and и or не получится проверял. Только построчно.
Используем формулу V = v*t (V - объем передаваемой информации, v скорость передачи, t - время передачи).
V1 = v*t1, V2 = v*t2, V2 = V1 / t1 * t2
V2 = (8*1024 / 100) * 25 = 2048 Кбайт
Ответ: 2048 Кбайт
Var
A,b,c:integer;
Begin
b:=-1;
c:=0;
Repeat
ReadLn(A);
b:=b+1;
if (A mod 2 <> 0)and(A mod 3 = 0) then c:=c+1
Until A = 0;
WriteLn('Длина последовательности: ',b);
WriteLn('Кол-ко нечётных чисел, кратных трём: ',c);
End.
Хранения сообщения - на внешних и внутренних носителях: флешка, жесткий диск, CD-ДИСК
Передача сообщений - телефон, телеграф, радио, телевидение, глобальные компьютерные сети
Обработка сообщений - программы для редактирования информации: microsoft office,openoffice