• Вопрос по информатике:

    Решить двумя способами.Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1. Пример: Введите число? 311 Единиц: 2

    • Автор:

      angelawoods

  • Ответ:

    //PascalABC.Net 3.2beginvar n:=readinteger('Введите число: ');var count:=0;repeatif abs(n mod 10)=1 then count+=1;n:=n div 10;until n=0;write ('Единиц: ', count);end.

    • Отвечал:

      fonzieluna
    • 0

    Ответ:

    Program n1;var num,k: integer;beginwrite('Введите число ');readln(num);k:=0;while num<>0 dobeginif abs(num mod 10)=1 thenk:=k+1;num:=num div 10;end;writeln('Единиц: ',k);end.

    • Отвечал:

      lucanoucmg
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска