Маяк может быть? ------------------
запишем условие: V=10Кб/с, t=5 сек, I-?
решение: количество переданной информации можно рассчитать по формуле I=V*t
Выразим скорость передачи информации в байтах/сек
V=10*1024 =10240 б/сек
Теперь найдем I=10240*5=51200 байт это и есть решение задачи
2048000 бит/с * 5 с = 10240000 бит = 1280000 байт = 1250 Кбайт = 1,22 Мбайта
Var a,a1,a2,a3:integer;
begin
write('a = ');
readln(a);
a1:=a div 100;
a2:=a div 10 mod 10;
a3:=a mod 10;
if (a1 mod 2 = 0)or(a2 mod 2 = 0)or(a3 mod 2 = 0)
then writeln('В числе есть четные цифры')
else writeln('В числе нет четных цифр');
end.
Пример:
a = 519
В числе нет четных цифр