Ввести натуральное число и определить, какие числа встречаются несколько раз. С
Ввести естественное число и найти, какие числа встречаются несколько раз. С помощью repeat until
Задать свой вопросprogram zz1;
var s, n, k, k1, p:integer; // задаем переменные целого типа
begin
write( введите естественное число );
read(n); // вводим с клавиатуры число
s:=0;
repeat // организуем цикл, пока в числе есть числа
k:=n mod 10; //получаем последнюю цифру
s:=n; // запоминаем n
repeat // организуем цикл, пока в числе есть цифры
k1:=s mod 10; // получаем заключительную цифру
s:=s div 10; // отбрасываем ее
if k = k1 then p:=p+1;
until s=0;
if pgt;1 then write(k, );p:=0; // выводим ответ
n:=n div 10; //отбрасываем ее
until n=0;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.