1. Информатика
  2. Написать программу в Pascal,

Написать программу в Pascal, определяющую, является ли 4-хзначное число, введенное с клавиатуры, кратным 5 и одновременно удовлетворяющим условию, что вторая цифра в его записи равна 2.

zmey7755 zmey7755    1   15.04.2020 20:26    0

Ответы
ника5010 ника5010  04.09.2020 13:58

PascalABC.NET 3.5.1

begin

 var N := ReadInteger();

 var sec_char := char.GetNumericValue(N.ToString[2]);

 if ((N mod 5 = 0) and (round(sec_char) = 2)) then Println('Yes') else Println('No');

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Def228yufdd Def228yufdd  27.05.2019 22:20
Продолжите последовательность, записав следующее число 0, 2, 24, 252,...
Магомед05111 Магомед05111  19.05.2021 07:59
Комп ютерна модель - це варіанти відповідейа. модель, що реалізується і досліджується з використанням програм, у яких можна будувати і змінювати графічне зображення...
Anna200689898098654 Anna200689898098654  19.05.2021 07:57
Що таке інформаційна безпека? а. забезпечення доступу до загальнодоступних даних усім користувачам, захист цих даних від спотворення та блокування зловмисниками б....
splaylive splaylive  19.05.2021 07:46
1. Авторлык кукык кимнин муддесин коргайды? 2. Интернеттеги авторлык кукыгы бар туындыларды дурыс пайдалану каншалыкты манызды?3. Бугинги танда интернетте авторлык...
akitaeva1 akitaeva1  19.05.2021 07:46
процессор это устройство хранения данных устройства обработки данных устройства вывода данных устройства передачи данных Дайте мне ответ ​...
меаавепеу меаавепеу  19.05.2021 07:45
с задачей по информатике ​...
tania7po tania7po  19.05.2021 07:42
дана переменная, выраженная в байтах. вывести на экран целочисленные значения в килобайтах и байтах.(например, a=1026 байт, и ответ: 1КБ 2 байта)​...
vityabro13 vityabro13  19.05.2021 07:40
№1. Составить алгоритм, программу и блок схему для выражения: (тут фотка) Проверить при: а) х = 4,5 б) х = -8 №2. Составить программу для решения задачи: задайте целое...
vytriskoivan vytriskoivan  19.05.2021 07:38
ОМ ИНФОРМАТИКА Программирование условий. Урок 2 4)0 =spot[0] =50 and 0 =spot[1] =50x-50 =spot[0] =x+50 and y-50 =spot[1] =y+50x =spot[0] =x+50 and y =spot[1] =y+20spot[0]=х+50...
DI228MA DI228MA  19.05.2021 07:37
№1. Составить алгоритм, программу и блок схему для выражения: Проверить при: а) х = 4,5 б) х = -8 №2. Составить программу для решения задачи: задайте целое число;...

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