Ищу подсказку для выполнения поставленной задачи 9 класса: - вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. например, 1234 - нет; 1224 - да. обязательно должен присутствовать цикл с предусловием while <условие> do. информатика. 8 класс. паскаль abc.
Вывести целое число и определить верно ли, что в его записи есть две одинаковые цифры. например, 123
- Автор темы Hanari
- Дата начала
program zz1;
var s, n, k, p:integer; // задаем переменные целого типа
begin
write(' введите натуральное число ');
read
; // вводим с клавиатуры число
k:=n mod 10; //получаем последнюю цифру
s:=k; // запоминаем ее
n:=n div 10; //отбрасываем ее
while n > 0 do // организуем цикл, пока в числе есть цифры
begin
k:=n mod 10; //получаем последнюю цифру
if k = s then p:=1; // сравниваем с предыдущей
s:=k; // запоминаем ее
n:=n div 10; //отбрасываем ее
end;
if p = 1 // проверяем, если нашлись две одинаковые
then writeln(' Верно ') // выводим один ответ
else writeln(' Неверно '); // иначе, выводим другой ответ
end.
var s, n, k, p:integer; // задаем переменные целого типа
begin
write(' введите натуральное число ');
read
; // вводим с клавиатуры числоk:=n mod 10; //получаем последнюю цифру
s:=k; // запоминаем ее
n:=n div 10; //отбрасываем ее
while n > 0 do // организуем цикл, пока в числе есть цифры
begin
k:=n mod 10; //получаем последнюю цифру
if k = s then p:=1; // сравниваем с предыдущей
s:=k; // запоминаем ее
n:=n div 10; //отбрасываем ее
end;
if p = 1 // проверяем, если нашлись две одинаковые
then writeln(' Верно ') // выводим один ответ
else writeln(' Неверно '); // иначе, выводим другой ответ
end.