1. Информатика
  2. Язык Pascal. Напишите программу,

Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры 4-значное число и определять, является ли число счастливым или нет. Счастливое число — это такое, у
которого сумма первых двух цифр равна сумме двух последних. Например, число 1230 —
счастливое, а 1234 — нет.
На вход программы подаётся четырёхзначное натуральное число (проверку корректности
ввода проводить не надо), на выходе должно появиться одно слово - Yes (с заглавной
буквы!), если число счастливое, и No, если нет.​


Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры 4-значное число и определять

Гыгуль Гыгуль    2   30.03.2021 10:35    2

Ответы
ярик471 ярик471  29.04.2021 10:38

var A,s1,s2: integer;

begin

   write('Введите число: '); readln(A);

   

   s1 := (A div 1000) + (A div 100) mod 10;

   s2 := (A div 10) mod 10 + A mod 10;

   

   if s1 = s2 then writeln('Yes')

   else writeln('No');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Kolyanbe360 Kolyanbe360  18.11.2020 19:46
Подго. 8. Із чого складається доg . Що таке діапазон клітинок? Як задається його адреса?10°. Що таке табличний курсор? Який він має вигляд?11. Як реалізовуються математичні моделі...
toshakalashnik toshakalashnik  18.11.2020 19:46
Построить таблицу истинности: F= ¬В V (¬A  V В)​...
NeznaykaVshkole NeznaykaVshkole  25.09.2019 00:30
Автоматическое устройство осуществило перекодировку информационного сообщения на языке, первоначально записанного в 8-битовом коде, в 16-битовую кодировку unicode. при этом информационное...
человек450 человек450  25.09.2019 00:30
Составить программу,которая проверяет, является ли число введённое с клавиатуры положительным нулю или отрицательным...
mihail20012 mihail20012  25.09.2019 00:30
Составить прогу в паскале которая с клавы вводит последовательность символов на латинице, считает кол-во гласных этой последовательности необходимо использовать процедуру ввода последовательности...
bolbatunovao bolbatunovao  25.09.2019 00:30
Какое значение будет принимать переменная х, после выполнения фрагмента программы: а: =3, b: = 8, с: = 5. if a b then x: =a+b else begin a: =b+c x: = а - 2*b end....
робот66 робот66  25.09.2019 00:30
Даны стороны прямоугольника a и b. найти его площадь s = a*b и периметр p = 2*(a+b)...
Sadist702 Sadist702  25.09.2019 00:30
Цветное (с палитрой из 256 цветов) растровое графическое изображение имеет размер 20*20 точек. какой объем памяти займет это изображение? и когда будете отвечать можно ответ писать...
stanislove777 stanislove777  25.09.2019 00:40
программа паскаль найти площадь шара, если его радиус равен 4 (s=4пr^2)...
kata198722 kata198722  25.09.2019 00:40
Прочитай высказывания. отметь те из них,которые являются советом.обоснуй свой выбор. 1.мойте руки перед едой! 2.всякому мила родная сторона. 3.кушай фрукты-это полезно! 4.тише едешь,дальше...

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