1. Информатика
  2. Задание 5. Составьте

Задание 5. Составьте программу, которая генерирует случайное четы- рехзначное число от 1000 до 9999 (номер автобусного билета), выводит его на экран и определяет, является ли билет «счастливым» (сумма первых двух цифр равна сумме последних двух цифр). ВНИМАНИЕ ЯЗЫК ПАСКАЛЬ

15JVC15 15JVC15    1   08.09.2021 00:03    5

Ответы
Lisaaaaakot Lisaaaaakot  25.11.2021 11:56

var

 n:integer;

begin

 n:=random(9000)+1000;

 writeln(n);

 if n div 1000 + n div 100 mod 10 = n mod 10 + n mod 100 div 10 then

   writeln('Happy ticket')

     else writeln('ps');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
жания112 жания112  06.11.2019 07:33
Рассмотреть изображение предоставленная ниже опишите два последствия нарушения правила техники безопасности предоставленные на рисунке один рисунок мальчик закрыл пальцем в глаз...
lisakiss1 lisakiss1  06.11.2019 07:53
1.последние новости в сфере информационных технологий2.последние новости в сфере медицины3.вхождение казахстана в число 30-ти самых развитых государств миранапишите одно из этих​...
Светик1987 Светик1987  21.01.2021 12:18
задание в онлайн мектеп за 6 класс​...
Ksuhan13 Ksuhan13  14.05.2019 12:53
На вход алгоритма подаётся натуральное число n. алгоритм строит по нему новое число r следующим образом. 1) строится двоичная запись числа n. 2) к этой записи дописывается справа...
Jamik1008 Jamik1008  14.05.2019 12:52
In addition, health food nuts who neglect to embrace better exercise and dietary patterns will recover the shed pounds and potentially more. as it starts, a lot of water will...
dashasuslova007 dashasuslova007  14.05.2019 12:49
Алгоритм вычисления значения функции f(n), где n — натуральное число, задан следующими соотношениями: f(n) = n + 1 при n ≤ 2; f(n) = f(n − 1) + 3 · f(n − 2) при n 2. чему равно...
Темирлан2003 Темирлан2003  14.05.2019 12:42
Составить программу, которая удваивает все двузначные четные числа и печатает их...
maximminkov315 maximminkov315  14.05.2019 12:42
Составьте программу. из города а одновременно выехали две машины, первая в город в, вторая в город с. известны расстояния между а, в и с и скорости машин. определите, какая из...
Тина132810 Тина132810  17.06.2019 15:10
Задан одномерный массив из 10 элементов. увеличить положительные числа в 3 раза, уменьшить отрицательные в 2 раза.в turbo pascal...
vvv76 vvv76  25.01.2021 13:45
1) Строка str1 после выполнения следующих строк кода будет содержать какое количество символов? str1= Good Morning str1=str1[2:6]+str1[1:3] Варианты ответа: 6 5 2 8...

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