Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var a,b,c,d,x,res: integer;
begin
readln(x);
a: =x div 1000;
b: =x mod 10;
c: =x div 100 mod 10;
d: =x mod 100 div 10;
res: =a+b+c+d;
writeln(res);
readln;
end.
-,андрей!
-,паша!
-как у тебя дела?
-у меня всё хорошо,а ты как?
-у меня всё отлично. что спросил
-не за что.пойдёшь сегодня гулять?
-да,конечно.а во сколько?
-в 5 часов.
-хорошо.ладно пока.
пока.встретимся на улице
-хорошо.
program e8;
var a, b, c, v: real;
writeln('введите значения длины, ширины,высоты');
readln(a,b,c);
v: =a*b*c;
writeln('v=', v: 4: 2);
4мин=240 сек.
1 половина всего времени = 240/2=120 сек.
за перпую половину времени передалось = 120 сек * 117 кбит = 14040 кбит
за вторую половину времени передалось в 3 раза меньше (т.к. скорость была в 3 раза меньше) = 14040/3=4680 бит
всего передалсоь = 14040+4680=18720 кбит = 2340 кбайт
Популярные вопросы