Помогите пожалуйста с информатикой. 1)Написать программу на turbo paskal, которая определяет все ли цифры трехзначного числа одинаковые - №2785039

Помогите пожалуйста с информатикой.
1)Написать программу на turbo paskal, которая определяет все ли цифры трехзначного числа одинаковые
- Предмет:
  Информатика
- Автор:
  kayleni5cq
- 5 лет назад

Ответы 1

var n,e,d,s: longint;beginread(n);s:=n div 100;n:=n mod 100;d:=n div 10;e:=n mod 10;if (s=d) and(s=e)and(d=e) then writeln('ravny') else writeln('ne ravny');end.
- Автор:
  goldiekuhe
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

приведите примеры каждой из перечисленных задач -описывать,объяснение, проектирование,управление,прогноз.
- Предмет:
  География
- Автор:
  jacksongndr
- 5 лет назад
- Ответов:
  
  1
- Смотреть
a) 3x-6=x+4 b) x+(x-20)+3x решить уравнение 7 КЛАСС
- Предмет:
  Алгебра
- Автор:
  marshalliwyr
- 5 лет назад
- Ответов:
  
  1
- Смотреть
Составить уравнения реакций между кислотами и основаниями, приводящих к образованию солей:Ca(NO3)2; Ba(HSO4)2; ZnOHCl
- Предмет:
  Химия
- Автор:
  fluffy6
- 5 лет назад
- Ответов:
  
  1
- Смотреть
составьте и запишите словосочетания по схеме поряд.числ.+сущ.,используя данные слова:седьмого,двадцатому,двадцать пятого,сороковые,о пятьсот тринадцатом,шестьдесят пятым,семидесятому,тысяча девятьсот девяносто седьмого,две тысячи седьмого,ОБОЗНАЧТЕ ПАДЕЖИ ЧИСЛИТЕЛЬНЫХ
- Предмет:
  Русский язык
- Автор:
  liam180
- 5 лет назад
- Ответов:
  
  2
- Смотреть

How much to ban the user?

1 hour 1 day 100 years