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

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

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

Найти нужный

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

определить объём информации числа (в десятичной системе счисления) 13... 1. Что может быть опасным для здоровья при работе в компьютерном классе? большая нагрузка на зрение повышенная нагрузка на суставы кистей электричес... 1. Какое из чисел 110011во 2-ой, 111 в4-ой , 35в 8-ой и 1В в16-ой является: a) наибольшим; b) наименьшим.... Спомощью мастера диаграмм (тип диаграмм- точечная ) постройте графики следующих функций. y = 2x в квадрате +5x-10 для значений аргумента изменяющихся... 1. Дайте определение понятию "файл". a) Файл - это текстовый документ. b) Файл - это значок на рабочем столе. c) Файл - это информация, которая хран...