Регистрация
andreweeoneoff
09.09.2022 02:40
Информатика
Есть ответ 👍

Составить программу. вывести с клавиатуры целое число,и определить,есть ли в нем повторяющиеся цифры.программа должна вывести"да" или "нет". заранее .

104
421
Посмотреть ответы 2

Ответы на вопрос:

arinayakovenkop09u55
arinayakovenkop09u55
4,6(82 оценок)
Uses crt; var s: string; i: integer; l: boolean;     m: set of char; begin clrscr; write('введите число : '); readln(s); l: =false; for i: =1 to length(s) do  begin  if   (m< > m-[s[i]]) then l: =true; m: =m+[s[i]]; end; if l then writeln('да')      else writeln('нет'); end.
tapilina92
tapilina92
4,8(42 оценок)
Uses crt; var k,t: real; begin   clrscr; write('введите килограммы:   '); readln(k); t: =k/1000; writeln('это составляет  ',t,'   тонн'); end.

Популярно: Информатика