< >

Помогите , пожалуйстаа. Нужно составить программу

Приложения:

Ответы

Ответ дал: borisovandrey2
0
Var x:integer;
Begin
Readln(x);
If (x div 100 )=(x mod 100)
Then write('Билет счастливый')
Else write('Билет несчастливый');
End.
Ответ дал: MrArmeshan
0
Попробуй делать через write и if
Похожие вопросы
Английский язык
2 года назад
2. Откройте скобки: 1. Who (to speak) English on board your ship? 2. He (to live) in this house last year. 3. My working day (to begin) at 8 yesterday. 4. The sailors (to paint) the hull at
Русский язык
2 года назад
Пустошь Какое склонение
Геометрия
2 года назад
На рисунке дано ∠ДВС меньше ∠АВД на 21 градус и меньше ∠СВЕ на 13 градусов . Найдите углы ∆BCD cрочно!!!!!!!​пжжжж СРОЧНО УМАЛЯЮ ИЛИ МНЕ КОПЕЦ​
История
2 года назад
Какую задачу выполнял в постановках хор?
Алгебра
8 лет назад
периметр прямоугольника равен 16 см а его площадь 15 м² найдите стороны прямоугольника
Математика
8 лет назад
в треугольнике АВС известно,что АВ=ВС=25,ВМ. найтити длину отрезка АС
Математика
9 лет назад
СРОЧНО!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА! Известно, что точки N(−15) и D(−33) симметричны. Укажи координату центра симметрии, точки X. Ответ: X(______)
Геометрия
9 лет назад
Пожалуйста, помогите AB и CD-перпендикуляры к прямой BD, точки A и C лежат по разные стороны от прямой BD.Докажите, что BC||AD, если AB=CD.