var a: array [1..5] of integer;
i, j , count: integer;
repeated : boolean;
begin
for i := 1 to 5 do
begin
write('Введите ', i, '-e число: ');
readln(a[i]);
end;
for i := 1 to 5 do
begin
repeated := false;
for j := 1 to i - 1 do
if (a[i] = a[j]) then
repeated := true;
if repeated then continue;
count := 1;
for j:= i+1 to 5 do
if (a[i]=a[j]) then
inc(count);
writeln('Число ', a[i], ' встречается ', count,' раз');
end;
end.
Умова (розгалуження) – це така форма організації дій, при який в залежності від умови виконується один чи інший набір команд, після чого розгалуження припиняється.
Характерною рисою цього фрагмента алгоритму є те, що при кожному його виконанні деякі команди будуть виконуватися, причому кожна по одному разу, а деякі – виконуватися не будуть. Це залежить від результату виконання команди перевірки умови (команди обчислення значення логічного виразу).
Объяснение:
Перевірка умови(обчисленя значеня лог виразу) і 2 дії
Ні послд команд 2
і так послд команд 1
кінцева повне розгалуження
m = int(input('Введите число М: '))
n = int(input('Введите число N: '))
if (m != n):
if (m > n):
n = m
print('M =', m, ' N =', n)
else:
m = n
print('M =', m, ' N =', n)
else:
m = 0
n = 0
print('M =', m, ' N =', n)
Объяснение:
m = int(input('Введите число М: ')) # Вводим значение М с клавиатуры
n = int(input('Введите число N: ')) # Вводим значение N с клавиатуры
if (m != n): # Если M ≠ N
if (m > n): # Если M > N
n = m # Значение переменной N = значению переменной M
print('M =', m, ' N =', n) # Выводим ответ
else: # Иначе
m = n # Значение переменной M = значению переменной N
print('M =', m, ' N =', n) # Выводим ответ
else: # Иначе
m = 0 # Значение переменной M = 0
n = 0 # Значение переменной N = 0
print('M =', m, ' N =', n) # Выводим ответ