<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
a.Sort; a.Println;
Writeln('Кол-во разных чисел равно ',a.Distinct.Count)
end.
<u>Пример</u>
n= 13
-1 1 3 -2 8 -9 9 -1 -8 -8 9 -9 2
-9 -9 -8 -8 -2 -1 -1 1 2 3 8 9 9
Кол-во разных чисел равно 9
Program vasil ;
var n , m : integer ;
begin
write ( 'vvedi chislo bochek N=' ) ;
readln ( n ) ;
m := n mod 10 ;
if ( m = 1 and n <> 11 ) then writeln ( n , ' bochka' )
else if (m <= 4 and n <> 12 and n <> 13 and n <> 14 and m <> 0) then writeln ( n , ' bochki' )
else writeln ( n , ' bochek' ) ;
end.
Так, наверное. Если будет косяк, то пиши, или сам сообрази где ошибка. Сейчас нет под рукой компилятора, не могу оттестировать.
Определим время передачи.
2048 бит/с = 256 байт/с = 0,25 Кб/с
128/0,25=128*4= 512с
Т.е. Файл передается 512с. Теперь узнаем новую скорость.
72/512= 0,140625 Кб/с = 144байт/с
Ответ:
144 байт/с
var a:array[1..10] of integer;
b:array[1..10] of integer;
c:array[1..10] of integer;
i:integer;
begin
cls;
for i:=1 to 10 do
begin
a[i]:=random(50);
write(a[i]:4);
end;
writeln;
for i:=1 to 10 do
begin
b[i]:=random(50);
write(b[i]:4);
end;
writeln;
for i:=1 to 10 do
begin
if a[i]<b[i] then c[i]:=a[i] else c[i]:=b[i];
write(c[i]:4);
end;
end.
<em><u>Код на Паскале:</u></em>
Program proba;
Uses crt;
Var n,s:integer;
Begin
writeln('введите натуральное число');
Readln(n);
s:=0;
repeat s:=s+n mod 10;
n:=n div 10;until n=0;
writeln('сумма цифр ',s);
<span>end.
<em><u>P.S. Программа вычисляет не только трехзначные числа ;)</u></em></span>
