Вопрос по программированию по паскалю. : даны 3 числа. функцией проверить, есть ли такое число в которой подряд идут 2 или больше одинаковых цифр. почему данная программа выводит в любом случае, что нет такого числа. program lul; var a, b, c: integer; function qq (chislo: integer): integer; var n, n1, k: integer; begin n: =0; n1: =0; k: =0; while (chislo*10 div 10 < > 0) do begin n: =chislo mod 10; chislo: =chislo div 10; n1: =chislo mod 10; if n=n1 then k: =1; break; end; qq: =k; end; begin readln(a, b, c); if qq(a)=1 then writeln('да, первое число походит'); if qq(b)=1 then writeln('да, второе число подходит'); if qq(c)=1 then writeln('да, третье число подходит') else writeln('никакое число не подходит'); end.

Какая дикая дичь. Вот до чего доводит знакомство с Pascal неокрепших умов.

В принципе, ты бы увидел ошибку даже сам, если бы отступы расставлял. Дело в скобках begin-end - у тебя итерация цикла всегда завершается break, а не по условию n=n1.

P. S. *10 div 10 - эту замечательную операцию можешь ещё тысячу раз написать в проверке числа на ноль.

Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.

Используемая формула: I = V • t.

V — пропускная канала (в битах в секунду

или подобных единицах);

t — время передачи.

Найдём время передачи информации по соединению.

Выполним преобразование от Кбайт к бит.

t = I : V = 240 Кбайт : 2048 бит/с =

= (240 • 1024 • 8) : 2048 с =

= (30 • 8 • 210 • 23) : 211 с = 960 с.

Найдём объём файла, который можно передать за это время по другому соединению. Выполним преобразование от бит к Кбайт.

I = V • t = 512 бит/с • 960 с = 491 520 бит =

= 491 520 : 8 : 1024 Кбайт = 60 Кбайт.

ответ;60.