Усложнённый вариант(всё работает исправно,при вводе больше или меньше 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" или нет. Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.
Процессор. Микропроцессор — основная микросхема персонального компьютера. Все вычисления выполняются в ней. Основная характеристика процессора — тактовая частота (измеряется в мегагерцах, МГц). Чем выше тактовая частота, тем выше производительность процессора. Оперативная память. Оперативную память можно представить как обширный массив ячеек, в которых хранятся числовые данные и команды в то время, когда компьютер включен. Объем оперативной памяти измеряется в миллионах байтов — мегабайтах (Мбайт). Монитор — устройство для визуального воспроизведения символьной и графической информации. Служит в качестве устройства вывода. Принтер — это внешнее периферийное устройство компьютера, предназначенное для вывода текстовой или графической информации, хранящейся в компьютере, на твёрдый физический носитель, обычно бумагу Сканер— это устройство ввода, которое, анализируя какой-либо объект (обычно изображение, текст), создаёт цифровую копию изображения объекта. Процесс получения этой копии называется сканированием. Веб-камера — малоразмерная цифровая видео- или фотокамера в реальном временификсировать изображения
begin {ввод массива} if handsfree then n := random(20) + 5 else begin write('n = '); readln(n); end;
writeln('Данные массива:'); for i := 1 to n do begin if handsfree then begin a[i] := random(100) - 50; write(a[i]:3, ' '); end else readln(a[i]); end; writeln();
{изменение элементов} for i := 1 to n do begin if a[i] < 0 then a[i] := abs(a[i]); write(a[i]:3, ' '); end; end.
Усложнённый вариант(всё работает исправно,при вводе больше или меньше 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" или нет.
Если нет,то препад заподозрит что вы списали откуда нибудь или вам кто-то подсказал.