(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 33 c
v = 256000 бит/с
I - ?
Решение:
бит
8448000.0 бит = 1056000.0 байт = 1031.25 Кбайт
1) var a,b:integer;
begin
readln(a,b);
writeln('Сумма единиц: ',a mod 10+b mod 10);
writeln('Сумма десятков: ',(a div 10) mod 10+(b div 10) mod 10);
end.
2)var a:integer;
begin
readln(a);
if a mod 2=0 then writeln('Делится на 2') else writeln('Не делится на 2');
if a mod 3=0 then writeln('Делится на 3') else writeln('Не делится на 3');
if a mod 5=0 then writeln('Делится на 5') else writeln('Не делится на 5');
end.
3)var a,b,c:integer;
begin
readln(a);
c:=a;
while a>0 do begin
b:=10*b+a mod 10;
a:=a div 10;
end;
writeln(c-b);
end.
Подходит программа 4) 1212.
Маршрут такой: 0 - 3 - 1 - 4 - 2.
<span>Program Bob;
var z:integer;
begin
writeln('введи номер дня недели');
readln(z);
if z=1 then writeln('Понедельник')
else if z=2 then writeln('Вторник')
else if z=3 then writeln('Среда')
else if z=4 then writeln('Четверг')
else if z=5 then writeln('Пятница')
else if z=6 then writeln('Суббота')
else if z=7 then writeln('Воскресенье')
else writeln('нет такого дня недели');
readln;
end.
Пожалуйста :) ЫЫЫ</span>