1. Информатика
  2. Дано целое двузначное число .если

Дано целое двузначное число .если обе цифры числа одинаковые, вывести сообщение "да", иначе -"нет" в паскале

tsvirko7891 tsvirko7891    2   23.04.2019 08:02    2

Ответы
Сашуньк Сашуньк  30.09.2020 14:05

var

  a:integer;

begin

  readln(a);

  if ((a div 10) = (a mod 10)) then

     writeln('да')

  else writeln('нет');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
anastasiia08052 anastasiia08052  06.08.2019 07:30
Числа фибоначчи это числовая последовательность в которой первые 2 числа единицы, а каждое последующее равно сумме двух предыдущих. дано натуральное число n . найти два ближайших к...
Meowmeowmi Meowmeowmi  06.08.2019 07:30
Сообщение занимает 3 страницы по 25 строк в каждой строке за писано по 60 символов сколько символов в использованом алфавите если все сообщение содержит 1125 битов...
melisa9999 melisa9999  17.09.2019 22:25
Нформаційна система має такі складові: а)апаратну б)технічну в)дані г)програмну д)фізичну (треба вибрати декілька варіантів)...
FiXMy FiXMy  17.09.2019 22:22
До засобів збирання повідомлень відносять: а)робота з газетами б)проведення дослідів в)створення копій г д)передавання повідомлень (треба вибрати декілька варіантів)...
Lraaq Lraaq  17.09.2019 22:21
Составить блок схему : вывести на экран n единиц, затем 2n двоек, затем 3n троек. число n вводит пользователь....
RomansPirs RomansPirs  17.09.2019 22:20
Найти ошибку var a, b, c, d, x, k: integer; begin k=0 for x: = 1000 to do begin a: = x div 1000; b: = x div 100 mod 10; c: = x div 10 mod 10; d: = 0; a+b+c+d=10 then k: =k+1 end; writeln...
макс3092 макс3092  17.09.2019 23:10
Составить блок-схемы и программы для следующих : 1. запросить ввод чисел a и b с клавиатуры. найти сумму чисел s, произведение чисел m. вывести на экран результаты вычислений. 2. запросить...
Lera200710 Lera200710  17.09.2019 23:10
Разработайте программу по подсчёту очков для конкурса пения в школе, если всего в оценке конкурсантов участвуют 10 судей. программа должна автоматически выставлять оценку — среднее...
kvkv2 kvkv2  17.09.2019 22:17
Проверить верность равенств через двочиную систему счисления 203 + 195 = 398 156 - 56 = 100...
Nuriza2002 Nuriza2002  09.06.2019 22:10
Прямоугольный треугольник задан двумя катетами и угол между ними. вычислить радиусы вписанной и описанной окружности решить линейным алгоритмом...

Популярные вопросы