Найти все четырехзначные числа, которые при делении на 3 дают остаток 1, при делении на 4 - остаток 2, а сумма их цифр равна А. (А-вводится с клавиатуры)

+1
Ответы (1)
  1. 8 июля, 19:10
    0
    begin

    writeln ('Enter A');

    readln (A);

    for i:integer:=1000 to 9999 do

    if (i mod 3 = 1) / /если остаток от деления на 3 равен 1

    and (i mod 4 = 2) / /и если остаток от деления на 4 равен 2

    and / / и сумма

    (i div 1000 / /числа тысяч

    + (i mod 1000) div 100 / /числа сотен

    + (i mod 100) div 10 / /числа десятков

    + i mod 10 = A) then / / числа единиц равна A

    writeln (i,' '); //то напечатать число i

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
в кодировке кои-8 каждый символ кодируется одним байтом. определите количество символов в сообщени, если информационный обьем сообщения в этой кодировке равен 120 бит.
Ответы (1)
1. Дано целое число, лежащее в диапазоне 1-999. Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное число" и т. д. 2. Даны 3 переменные вещественного типа: А, В, С.
Ответы (1)
что такое графическая модель
Ответы (1)
Сколько всего было иероглифов в египетском письме?
Ответы (1)
Файл размером 6 Кбайт передается через некоторое соединнение 600 сек. Сколько секунд будет передаваться файл размером 6 Гбайт?
Ответы (1)
Напистаь программу удаления из строки чётных или нечётных чисел
Ответы (1)
Орган человека, воспринимающий вкусовую информацию 4 буквы
Ответы (1)
а) Выбери название действия, которое былс совершено при форматировании текста 1. ТЕКСТ 1 Декодирование - это восстановление информации по её кодированной форме ТЕКСТ 2 Декодирование - это восстановление информации по её кодированной форме ТЕКСТ 3
Ответы (1)
Скорость передачи данных через ADSL-соединение 128000 бит/с. Сколько времени займет передача файла объёмом 5 Мбайт по этому каналу? а) 328 б) 41 в) 5,5 г) 40
Ответы (1)
Если при наборе текста все буквы отображаются прописными то это означает что нажатие клавиша 1. Num Lock 2. Caps Lock 3. F1
Ответы (1)