773
Это наибольшее трехзначное, а всего 12 трехзначных чисел
<span>
<span><span>
773
</span>
<span>
764
</span>
<span>
755
</span>
<span>
746
</span>
<span>
737
</span>
<span>
674
</span>
<span>
647
</span>
<span>
575
</span>
<span>
557
</span>
<span>
476
</span>
<span>
467
</span>
<span>
377
Программу можно посмотреть Alt+F11
</span></span></span>
1) Программа будет запрашивать ввод новых чисел, пока он не введёт число 3:
var i,count,n: Integer;
begin
while i<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
i:=n;
end;
writeln('Кол-во: ',count);
end.
2) Программа будет запрашивать ввод чисел, пока отрицательные числа в сумме не будут равны числу 3:
var count,n: Integer;
begin
while count<>3 do
begin
writeln('Введите число');
readln(n);
if n<0 then inc(count);
end;
writeln('Кол-во: ',count);
end.
3). Подставим в первый оператор значение х=25
if (25=10) or (25<2) then y:=5 else y:=10;
Теперь вычислим значение логического выражения, стоящего после if
false or false дает false.
Условный оператор if при false передаст управление оператору, стоящему после else и выполнится y:=10;
Это значение (10) и будет выведено.
4) Количество повторений цикла вида for i=a to b вычисляется по формуле
b-a+1.
Подставляем значения: 5-0+1 - 6. Получается, что 6 раз.
Program z;
var x,max,n,k:integer;
begin
x:=-1;
max:=-1;
n:=0;
k:=0;
while x<>0 do
begin
readln(x);
k:=k+1;
if x>max then begin max:=x; n:=k; end;
end;
writeln(n);
end.