сервис вопросов и ответовВвести натуральное
5-9 класс|
|
число и определить, какие цифры встречаются несколько раз.
Пример:
Gasi88
16 дек. 2014 г., 1:57:48 (9 лет назад)
Дарина1991
16 дек. 2014 г., 4:53:31 (9 лет назад)
var
a, c : integer;
con, rep : array [0..9] of boolean;
begin
read (a);
while a > 0 do
begin
c := a mod 10;
a := a div 10;
if not con[c] then con[c] := true
else rep[c] := true;
end;
for c := 0 to 9 do
if rep[c] then write (c, ' ');
end.
Ответить
Другие вопросы из категории
К языкам программирования высокого уровня не относится...
а) с#
б) assembler
в) ruby
г) lisp
Скорость передачи данных через ADSL - соединение равна 1024000бит/c. Через данное соединение передают файл размером 2500Кбайт! Определите время передачи
файла в секундах.
Вы руководитель секретной службой фирмы. Каждое утро вы получаете новый пароль доступа к информации. На текущей неделе в паролях используетя только три
буквы: П,Т,О. Буквы закодированы двоичными кодами:
П-011
Т-000
О-010
В понедельник паролем было слово ПОТОП
Запишите последовательность цифр без пробелов обозначающий этот пароль
В ПАСКАЛЕ!№1 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить сколько среди них чисел, кратных 4; №2 С клавиатуры вводятся 10
натуральных двузначных чисел. Определить
среднее арифметическое нечетных чисел;
№3 С клавиатуры вводятся 10 натуральных двузначных чисел. Определить
верно ли, что среди введенных чисел есть число, в котором первая цифра в два раза больше последней.
Читайте также
Программу надо написать в PascalABC, с использованием команд repeat и until. Ввести натуральное число и определить, какие цифры встречаются несколько раз
(с защитой от неверного ввода) или Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 (с защитой от неверного ввода).
Ввести натуральное число N и найти сумму всех чисел от 1 до N (1+2+3+...+N)
ИСПОЛЬЗУЯ ЦИЛ ПОКА!!
Вы находитесь на странице вопроса "Ввести натуральное", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.