усложнённый вариант(всё работает исправно,при вводе больше или меньше 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. 2 варианта, так-как незнаю,проходили ли вы функцию "length" или нет.если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.
функции:
trunc - возвращает целую часть вещественного числа.
round - возвращает число, округленное до ближайшего целого. если вещественное находится посередине между двумя целыми,то округление осуществляется к ближайшему четному (банковское округление).
div - результат целочисленного деления, точнее округленное до ближайшего целого по направлению к 0.
mod - остаток от целочисленного деления.
решение:
trunc(6,9) = 6
trunc(6,2) = 6
round(6,9) = 7
20 div 6 = 3
20 mod 6 = 2
2 div 5 = 0
2 mod 5 = 2
Поделитесь своими знаниями, ответьте на вопрос:
Определите истинность высказывания, при х=1
ответ:
false (ложь)
объяснение:
∧ - конъюнкция, логическая и∨ - дизъюнкция, логическая иликонъюнкция равна true только в том случае, когда оба выражения истинны. например: x ∧ y только тогда, когда x, y = true.дизъюнкция равна true всегда, кроме момента, когда x, y = false.(1 > 2) или (1 < 5) и (1 > 10) =
= false или true и false =
= false или false =
false