karinalove9
21.03.2021 17:03

Программисты ! необходимо написать программу в паскале.
условие :
для чисел от 1 до 1000. найти количество трехзначных чисел, все
цифры которых одинаковы.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
ЛимАнель
27.08.2020 17:56

var i,k: integer;

begin

k:=0;

for i:=111 to 999 do  

if((i mod 10)=(i mod 100 div 10)) and ((i mod 10)=(i div 100)) then k:=k+1;

write(k);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота