Регистрация
koskol84p08pdw
20.07.2021 09:42
Информатика
Есть ответ 👍

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

141
164
Посмотреть ответы 2

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

Djzhdujd
Djzhdujd
4,4(69 оценок)
Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "это не трёхзначное число! "): vari,a,d: integer; s: string; beginwriteln('введите трёхзначное число '); read(s); d: =length(s); if d< > 3 thenwrite('это не трёхзначное число! '); if d=3 thenif (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('да')elsewrite('нет'); end.  простой вариант(выводится ошибка если цифр больше или меньше трёх! ): vari,a,d: integer; s: string; beginwriteln('введите трёхзначное число '); read(s); if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) thenwrite('да')elsewrite('нет'); endю
zalyaeva85
zalyaeva85
4,4(24 оценок)
Var a: array[1..20] of integer; i,k: integer; begin for i: =1 to 20 do begin read(a[i]); if not odd(a[i]) then k+=1; end; writeln(k); end.

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