Ответы на вопрос:
гривна там почти в самом низу списка валют. (тыкаешь на правой картинке "обозначение и мотаешь в самый низ")
var n,a,b,c,d: integer;
begin
readln(n);
a: =n mod 10;
b: =(n div 10) mod 10;
c: =(n div 100) mod 10;
d: =n div 1000;
if((a-b< > 0)or(c-d< > 0)or(a-d< > 0)) then writeln('цифры введённого четырёхзначного числа различны') else
writeln('цифры введённого четырёхзначного числа одинаковы');
end.
Популярно: Информатика
-
Даня122114.02.2020 03:01
-
Animerica2004508.04.2020 04:00
-
маликаманзура12.08.2020 20:22
-
mironhik110.02.2022 17:38
-
Проgh05.06.2020 12:36
-
Никто50502.07.2022 07:54
-
jadeholden45121.05.2020 21:20
-
Djjhsb30.10.2020 03:27
-
герман7824.07.2022 10:28
-
dubrovin1305129.04.2020 14:42