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

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 камень, а во второй 2 камня. У каждого игрока неограничен... Алфавит некоторого языка состоит из 32 символов. Каков информационный вес символа этого алфавита? 4 бита 32 бита 1 бит 5 битов... Сколько терабайт информации содержит сообщение объемом 249 бит? 64 256 512 128... Алфавит некоторого языка состоит из 64 символов. За сколько секунд можно передать текст из 2000 символов , если скорость передачи - 50 байтов в секунд... СРОЧНО!!!!!!! в сельскохозяйственном интституте изучают всхожесть семян. результатом одного измерения является целое число от 0 до 100%,которое записа...