Люди , что делать. У меня есть комп, я его переставил в другую комнату потомучто инет слабоват был, ну так вот я его переставил включаю и чёрный экран, индикаторы горят, блок работает
{с клавиатуры вводится число до тех пор, пока не будет введено 3-х значное, сумма первых двух цифр записывается в a, сумма десятков и единиц - в b. Сравнивается какое из них больше и выводится в порядке возрастания} Uses Crt; var a,c,b:integer; begin ClrScr; repeat writeln('INPUT 3-x znachoe'); readln(b); until (b>=100)and(b<=999); a:=b div 100+(b div 10)mod 10; c:=(b div 10)mod 10+b mod 10; if a<c then writeln(a,c) else writeln(c,a); Readkey; end.
begin i := 1; {порядковый номер введенного с клавы числа} readln(n); {считываем число в клавиатуры} min := n; {присваеваем минимуму первое введенное число. Если будет введено одно число то оно и есть минимум} mini := i; {присваеваем порядковый номер минимума}
repeat{повторяем} i := i + 1; {порядковый номер введенного с клавы числа} readln(n); {считываем число в клавиатуры} if (n <> 0) and (min > n) then begin {если введенное число меньше минимума, то заменяем минимум} min := n; {присваеваем минимуму число} mini := i;{присваеваем порядковый номер минимума} end; until n = 0;{до тех пор пока n=0}
ты сам это делал? Или кто то ?