Задать вопрос
6 июля, 17:06

Даны билеты с номерами от 0001 до 9999, найти кол-во счастливых билетов

+3
Ответы (1)
  1. 6 июля, 18:49
    0
    Var n, i: integer;

    begin

    n : = 0;

    for i : = 1 to 9999 do

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

    n : = n + 1;

    writeln (n) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Даны билеты с номерами от 0001 до 9999, найти кол-во счастливых билетов ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы