Вроде 125 секунд (2 минуты и 5 секунд) на передачу.
P.S. Пишу вроде потому, что мы ещё не проходили данную тему (про Мегабит и Мегабайт)
Заполни пустые ячейки таблицы.<span>Слово Значение слова
Понятие помогите</span>
//PascalABC.NET 3.1 сборка 1200
begin
var d := ArrRandomInteger(23, -50, 50);
Println(d);
end.
Program Pr1;
uses crt;
var n,i,a,b,c:integer;
Begin
clrscr;
writeln('Vvedite N');
readln(n);
a:=n;
for i:=2 to 4 do begin
a:=a+10;
n:=n+a;
end;
writeln(n);
end.
Вот программный код на паскале:
<span>var
m,n: integer;
begin
read(m,n);
if m > n then
begin
writeln('1 paket tyajelee');
writeln('Ves tyajologo bolee paketa = ',m);
end ;</span>
<span>if m < n
then
begin
writeln('2 paket tyajelee');
writeln('Ves tyajologo bolee paketa = ',n);
end;
readln;
end.</span>