Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):
var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
d:=length(s);
if d<>3 then
write('Это не трёхзначное число!');
if d=3 then
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.
Простой вариант(выводится ошибка если цифр больше или меньше трёх!):
var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.
Даю 2 варианта, так-как незнаю,проходили ли вы функцию "length" или нет.
Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.
Усложнённый вариант(всё работает исправно,при вводе больше или меньше 3 чисел выводится сообщение "Это не трёхзначное число!"):
var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
d:=length(s);
if d<>3 then
write('Это не трёхзначное число!');
if d=3 then
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.
Простой вариант(выводится ошибка если цифр больше или меньше трёх!):
var
i,a,d:integer;
s:string;
begin
writeln('Введите трёхзначное число ');
read(s);
if (s[1]=s[2])or(s[1]=s[3])or(s[2]=s[3]) then
write('Да')
else
write('Нет');
end.
Даю 2 варианта, так-как незнаю,проходили ли вы функцию "length" или нет.
Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.
а) . Номера страниц идут от 1 до 64. Страницы на двойных листах нумеруются так:
1-й – 1, 2, 63, 64;
2-й – 3, 4, 61, 62;
………………..;
16-й – 31, 32, 33, 34.
б) . Так как в последовательности, которую дают номера страниц двойного листа, суммы чисел, равноотстоящих от концов, одинаковы
(1+64, 2+63 – 1-й лист;
3+62, 4+61 – 2-ой лист;
………………………..;
31+34, 32+33 – 16-й лист) ,
а именно 65, то сумма чисел на любом двойном листе (65+65=130) одна и та же. Значит, нельзя указать двойного листа, у которого сумма чисел, обозначающая номера страниц наибольшая.
ответ: такого двойного листа в журнале нет.
Надеюсь