Информатика, опубликовано 2018-08-22 18:17:31 by Гость
Дано натуральное число N. Определить, верно ли, что это число содержит ровно три одинаковые цифры. Решите алгоритмом
Ответ оставил Гость
Var
a,b,c,x:integer;
begin
write(Введите трехзначное число. X=);
readln(x);
a:=x div 100;
b:=(x mod 100) div 10;
c:=(x mod 10) div 1;
if (a=b) and (b=c) then writeln(Верно!)
else writeln(Не верно);
readln;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на