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

1 ответ

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

Megamozg

2190

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

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

Найти нужный

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

Заполните схему передача информации... Цвет пикселя монитора определяется тремя составляющими: зеленой, синей и красной. Под красную и синюю составляющие одного пикселя отвели по пять бит.... Написать программу Pascal Вывести на экран куб введенного числа... Как называется устройство для объединения сетей, использующих разные протоколы ?... Python 1) Напишите генератор, который бы возвращал площади кругов с радиусами в диапазоне от 10 до 10 000. Вывести на экран первые пять значений с точ...