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

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

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

Найти нужный

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

Алёша, Боря и Гриша нашли в земле старинный сосуд. рассматривая удивительную находку, каждый высказал по два предположения: 1)алёша: это сосуд греческ... Определите типы исполнителей в предложенных ситуациях. Будьте готовы обосновать свой ответ. а)Симфонический оркестр исполняет музыкальное произведение... Поисковой системой НЕ является: а) Г.у.г.л. б) Ф.а.й.р.Ф.о.к.с. в) Р.а.м.б.л.е.р. г) Я.н.д.е.к.с.... Как называются данные или программа на магнитном диске?... Найдите значение логического выражения ________ (х<3)&(x<2) для указанных значений числа х: 1) 1 2)2 3)3 4)4...