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

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.

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

5 апреля 2023 08:12

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

Найти нужный

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

Помогите решить... N =5 A=[0]*N for i in range(N):         A[i]=i+3... Вариант 2 1. Найдите ошибку. Файл – это: а) Любая информация, записанная на технические носители под определенным именем б) Программа, записанная на... Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке {-5,5} и находит произведение ненулевых элементов.( фри Пас... Урок 1 Определи адреса ячеек, которые используют формат «Денежный». А1, А2, А3, А4, А5 А2, В2, С2 В3, В4, В5 С3, С4, С5 СРОЧНО ПОЖАЛУЙСТА :)...