Нужно подсчитать сколько раз отработал цикл

@vataminovich · Регистрация: 07.01.2019

Author24 — интернет-сервис помощи студентам

Pascal

for i:=n to k do
begin
m:=i;
a4:=m mod 10; m:=m div 10;
a3:=m mod 10; m:=m div 10;
a2:=m mod 10; a1:=m div 10;
 
if ((a1=a2)and (a1=a3) and(a1<>a4)) or
((a1=a2)and (a1=a4) and(a1<>a3)) or
((a1=a3)and (a1=a4) and(a1<>a2)) or
((a2=a3)and (a2=a4) and(a2<>a1))
then writeln(i,'');
end;

@OwenGlendower · 07.01.2019, 18:06

vataminovich, при чем тут C#?

Добавлено через 12 минут
Что касается сути вопроса, то цикл выполняется k-n+1 раз.

@OwenGlendower Администратор 17019 / 13372 / 5217 Регистрация: 17.03.2014 Сообщений: 27,342 Записей в блоге: 1
	07.01.2019, 18:06	2
	vataminovich, при чем тут C#? Добавлено через 12 минут Что касается сути вопроса, то цикл выполняется k-n+1 раз. 1