Задать вопрос
5 декабря, 20:02

Дано четырехзначное число A. Определить есть ли в нем цифра M. И Сколько раз она встречается?

Записать на языке Паскаль.

Ответы (1)
  1. Л
    5 декабря, 21:06
    0
    Var a, m, k, i:integer;

    begin

    write ('a = ') ;

    readln (a) ;

    write ('m = ') ;

    readln (m) ;

    k:=0;

    for i:=1 to 4 do

    begin

    if a mod 10 = m then k:=k+1;

    a:=a div 10;

    end;

    writeln ('k = ', k) ;

    end.

    Пример:

    a = 6726

    m = 6

    k = 2
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дано четырехзначное число A. Определить есть ли в нем цифра M. И Сколько раз она встречается? Записать на языке Паскаль. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
2) Вводится четырехзначное число с клавиатуры. Определить цифру тысяч, сотен, десятков и единиц. В окне вывода должно быть так (это пример) Введи четырехзначное число: 1234 цифра тысяч-1 цифра сотен-2 цифра десятков-3 цифра единиц - 4
Ответы (1)
Вводится четырехзначное число с клавиатуры. Определить цифру тысяч, сотен, десятков и единиц. В окне вывода должно быть так (это пример) Введи четырехзначное число: 1234 цифра тысяч-1 цифра сотен-2 цифра десятков-3 цифра единиц - 4
Ответы (1)
Дано натуральное число. Определить: 1) Определить количество повторений заданной цифры в нем 2) Сколько раз в нем встречается цифра, равная последней 3) Количество четных цифр в нем. желательно в Basic. но можно и паскаль
Ответы (1)
Дано четырехзначное число А. Определить есть ли в нем цифра М. И сколько раз она встречается?
Ответы (2)
 
Войти
Задать вопрос