Составьте блок схему по этим . , нарисуйте на бумажке! 1) даны четыре целых числа, одно из которых отлично - id520142220220310 от mihscka0605 10.03.2022 22:14

Question

Информатика: Составьте блок схему по этим . , нарисуйте на бумажке! 1) даны четыре целых числа, одно из которых отлично от трех других, равных между собой. определить порядковый номер числа, отличного от остальных 2) на числовой оси расположены три точки а, b, c. определить, какая из двух последних точек (b или с) расположена ближе к а, вывести эту точку и ее расстояние от точки а. 3) даны два целых числа a и b ( a любую из этих , : d

mihscka0605 · Accepted Answer

Сначала надо избавиться от ошибок (пункт №3)
иначе не сможем выполнить 1 и 2 пункт задания.
Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
Исправляем N:N div 10; на N:= N div 10;

После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193

Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do

После всех исправлений код программы стал таким:
var
N, k: integer;
begin
readln(N);
k := 9;
while N > 10 do
begin
if (N mod 10 < k) then k := N mod 10;
N := N div 10;
end;
write(k)
end.

MOGZ ответил