Read(a);
read(b);
if (a mod 10) = (b mod 10) then writeln('Верно') eslse
writeln('Неверно');
1 дерево вершина + ветка + ствол
2 дерево вершина + две ветки
3 дерево ветка + ствол
Program Pr1;
uses crt;
var ch,min,sek,ch2,min2,sek2,a,b,c:integer;
Begin
clrscr;
a:=0;
b:=0;
readln(ch,min,sek,ch2,min2,sek2);
while a<=ch do begin
a:=a+1;
b:=b+3600;
c:=b;
end;
b:=b+min*60+sek;
while a<=ch2 do begin
a:=a+1;
c:=c+3600;
end;
c:=c+min2*60+sek2;
writeln(c-b);
end.
Для того щоб робити точні виміри і полегшити своє життя
Можно сначала найти за сколько скачивается файл, если за секунду качается <span>1536 бит, а потом найти уже размер другого файла, но более рационально увидеть, что в первом случае скорость в 2 раза больше, чем в другом, а раз время скачивания одинаковое, и одна скорость больше другой в 2 раза, то и получается, что 2 файл в 2 раза меньше 1 файла, т.е. получается, что он равен 40 кбайт</span>