Pascal Вводится случайное число, вывести все цифры этого числа, которые встречаются в нем не менее двух раз?

Два147852 3 нояб. 2020 г., 19:28:31

Programnum1 ;

vara : array[1.

9]of longint ;

i, n : longint ;

begin

readln(n) ;

fori : = 0to 9 do a[i] : = 0 ;

whilen> ; = 1 do

begin

a[nmod10] : = a[nmod 10] + 1 ;

n : = floor(n / 10) ;

end ;

for i : = 0 to 9 do

if a[i]> ; 2 then writeln(i) ;

end.

Aljonka80 8 июн. 2020 г., 05:49:39 | 5 - 9 классы

Вывести 1 - ую цифру любого числа?

Вывести 1 - ую цифру любого числа.

(На языке Pascal).

Rleisan 26 июн. 2020 г., 03:47:58 | 10 - 11 классы

Pascal?

Pascal.

Тема : Циклы С клавиатуры вводится целое произвольное число 1) Вывести на экран первую и последнюю цифру числа.

2) Вывести на экран наибольшую цифру числа 3) Вывести на экран нечетные цифры этого числа.

KreePS 7 авг. 2020 г., 13:58:24 | 5 - 9 классы

Вводятся значения двух ЦИФР?

Вводятся значения двух ЦИФР.

Напечатать максимальное двузначное число, которое можно сформировать из этих цифр или сообщение, что таких двузначных чисел не существует.

(Pascal).

Li15 19 сент. 2020 г., 23:20:09 | 5 - 9 классы

1) дано четырёхзначное число?

1) дано четырёхзначное число.

Вывести максимальную и минимальную цифру.

Pascal abc

2) дано четырёхзначное число.

Что больше : произведение цифр числа или их утроенная сумма.

Pascal ABC.

Podgornyyn 25 нояб. 2020 г., 03:16:45 | 10 - 11 классы

Вводится целое положительное число?

Вводится целое положительное число.

Найти наименьшую нечетную цифру в числе.

Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр".

SofArkadiu 12 нояб. 2020 г., 19:12:02 | 5 - 9 классы

PASCAL ABC, программа?

PASCAL ABC, программа!

Вводится целое положительное число.

Найти наименьшую нечетную цифру в числе.

Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр".

200287 10 авг. 2020 г., 20:28:44 | 5 - 9 классы

С клавиатуры вводится трехзначное число?

С клавиатуры вводится трехзначное число.

Вывести на экран удвоенную цифру единиц Pascal.

LoraLina 18 авг. 2020 г., 18:06:21 | 5 - 9 классы

Дано некоторое натуральное число СН?

Дано некоторое натуральное число СН.

Вывести на печать ближайшее к нему простое число.

Pascal.

Аленький 16 сент. 2020 г., 03:07:40 | 10 - 11 классы

Помогите, пожалуйста, написать программы на Паскале?

Помогите, пожалуйста, написать программы на Паскале.

Задачи : 1.

Сгенерировать случайное число, вывести на экран это число, а также сумму и произведение его цифр.

2. Вводятся целые числа до первого числа, которое меньше двух.

Определить, сколько простых чисел было введено.

Luneva281983 5 мая 2020 г., 18:59:18 | 5 - 9 классы

С клавиатуры вводится целое положительное число?

С клавиатуры вводится целое положительное число.

Определить, сколько в этом числе чётных цифр.

(PASCAL).