Задать вопрос
1 мая, 23:39

вывести на экран все трехзначные числа в которых хотя бы две цифры повторяются

задачка в паскале

+2
Ответы (1)
  1. 2 мая, 02:09
    0
    var a, b, c, d:integer;

    begin

    a:=100;

    repeat

    b:=a mod 10;

    c: = (a div 10) mod 10;

    d: = ((a div 10) div 10) mod 10;

    if (b=c) or (c=d) or (b=d) then writeln (a) ;

    inc (a) ;

    until (a>999) ;

    readln;

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