Люди добрые, помогите пожалуйста!Дано натуральное трёхзначное число. Напишите программу, которая определяет: (фото)

1 ответ

Посмотреть ответы

Megamozg

2205

var
s:string[3];
flag1,flag2:boolean;
begin
flag1:=false;
flag2:=false;
s:='';
readln(s);
if (s[1]=s[3]) then
begin
flag2:=true;
flag1:=true;
end
else
if (s[1]=s[2]) or (s[3]=s[2]) then
flag1:=true;
if flag1 then
writeln('Да')
else writeln('Нет');
if flag2 then
writeln('Перевёртыш')
else writeln('Нет');
end.

Хороший ответ

4 апреля 2023 08:42

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Два сообщения содержат одинаковое количество информации. Количество символов в первом тексте в 2,5 раза меньше, чем во втором. Сколько символов содерж... Цифровой вольтметр измеряет величину напряжения с точностью до 0,1 Вольта. Определите минимальное количество бит на каждое значение напряжения, если м... Доклад на тему основные этапы развития ИКТ Помогите пожалуйста!... 12) Каково назначение процессора? a. обрабатывать одну программу в данный момент времени b. управлять ходом вычислительного процесса и выполнять ари... Приведите пример циклического алгоритма,в виде блок схемы или словесного алгоритма....