Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Решить задачу в паскале
1. Дано четырехзначное число. Все ли его цифры разные?

Ответ оставил Гость

Var a,c1,c2 integer;b: bool;beginb:=true;writeln("Введите четырехзначное число ");readln(a);c1:=a mod 10;a:=a div 10;while(a>0) do beginc2:=a mod 10;a:=a div 10;if c1 <> c2 thenb:= false;end;if b=true then writeln("Все цифры данного числа равны")else writeln("Цифры данного числа различны");end.