Var a,b:integer;
begin
writeln('Введите число');
readln(a);
writeln('Введите цифру');
read(b);
if ((a mod 10)<>b) and ((a div 10)<>b) and (a<100) then begin
a:=a+1;
write(" ",a);
end;
end.
1) узнаем скорость соединения
1,25Кбайт=1,25*1024байт=1280байт
1280/128=10 байт\с
2) узнаем время
250\10=25 с
Ответ 25 секунд
Можно аудио: сказать; видео: показать; простучать азбукой морзе
<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (n,m):=ReadInteger2('Введите через пробел n и m:');
var a:=ArrRandom(10,n,m);
a.Println
end.
<u>Пример</u>
Введите через пробел n и m: -6 20
15 10 16 17 1 14 -4 19 1 18