Задать вопрос
19 сентября, 17:13

Составить программу в паскале с использованием циклических операторов:

три приятеля математика были свидетелями дорожного происшествия. Номер машины (четырехзначный) ни один из них не запомнил. Однако один заметил, что этот номер делиться на 2,7 и 11; другой заметил, что в номере учавствуют только две цифры, а третий заметил, что сумма цифр равна 30. Какой номер автомобиля?

+2
Ответы (1)
  1. 19 сентября, 19:03
    0
    function colcifr (a: integer) : integer;

    var

    s, k: string;

    i, j: integer;

    begin

    i : = a;

    repeat

    str (i mod 10, k) ;

    i : = i div 10;

    if (pos (k, s) = 0) then

    begin

    s : = concat (s, k) ;

    inc (j) ;

    end;

    until (i = 0) ;

    colcifr : = j;

    end;

    function sum (i: integer) : integer;

    var

    a, b: integer;

    begin

    a : = i;

    repeat

    b : = b + a mod 10;

    a : = a div 10;

    until (a = 0) ;

    sum : = b;

    end;

    var

    i: integer;

    begin

    for i : = 1000 to 9999 do

    if (i mod 2 + i mod 7 + i mod 11 = 0) then

    if (colcifr (i) = 2) then

    if (sum (i) = 30) then

    writeln (i) ;

    end.

    8778
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составить программу в паскале с использованием циклических операторов: три приятеля математика были свидетелями дорожного происшествия. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Три блондинки были свидетелями нарушения правил дорожного движения. Номер автомобиля - четырёхзначное число - никто, конечно не запомнил.
Ответы (1)
Составить программу в паскале с использованием циклических операторов: Среди всех чисел, меньших к (к
Ответы (1)
Составить программу в паскале с использованием циклических операторов: найти все натуральные решения уравнения х^2+у^2=М, где М>0 задает пользователь
Ответы (1)
Уровень B. Задача M. Две одинаковые цифры рядом Напишите программу, которая определяет, верно ли, что введённое число содержит две одинаковых цифры, стоящие рядом (как, например, 221). Входные данные Входная строка содержит одно натуральное число.
Ответы (1)
В паскале составить программу: определить делимость на 3 для четырехзначного числа. (думаю, что надо использовать св-во делимости числа: число будет делиться на 3, если сумма цифр этого числа будет делиться на три)
Ответы (1)