640*350*1=224000 бит = 224000/8 байт = 28000 байт = 27,34375 килобайта
1 - т.к. 2 цвета можно закодировать всего 1 битом (0 или 1)
Var a,s,i :integer;
begin
readln(a);
while a<>0 do begin
readln(a);
if (a >15) and (a<190) and (a mod 2=0) then
s:=s+a;
end;
writeln(s);
end.
С мобильных телефонов можно переписоватся. И с компьютера на мобильный телефон можно отправлять SMS.короткие текстовые сообщения (<span>Short Messsage Service).
</span>
Интернет-телефония. Провайдеры Интернет-телефонии обеспечивают такую связь с помощью специальных телефонных серверов Интернета, которые подключены к Интернету. И <span>Интернет-телефония дает возможность пользователю Интернета использовать телефонную связь компьютер-телефон.</span>
Const
auto = true;
n = 70;
var
a: array[1..n] of integer;
i: integer;
begin
for i := 1 to n do
begin
if auto then
a[i] := random(100)
else readln(a[i]);
if (a[i] <= 70) and (a[i] >= 30) and (a[i] mod 9 > 0) then
writeln(a[i]);
end;
end.