Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
3 апреля 2023 08:12
891
Люди добрые, помогите пожалуйста!Дано натуральное трёхзначное число. Напишите программу, которая определяет: (фото)

1
ответ
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.
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.
0
·
Хороший ответ
5 апреля 2023 08:12
Остались вопросы?
Еще вопросы по категории Информатика
Определите значение переменной a после выполнения данного алгоритма: a = 4; b = 6; b = 8 + a * b; a = b / 4 * a. В ответе укажите одно целое число – з...
Пусть видеопамять компьютера имеет объём 512 кбайт.Размер географической сетки-640х480.Сколько страниц экрана одновременно разместятся в видеопамяти п...
Требуется найти наименьший натуральный делитель целого числа N, отличный от 1.язык C++...
Напишите на языке Python программу которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра...
сколько битов в 1 байте? сколько байтов в слове бит? сколько битов в слове байт? 1 килобайт---это 1000 байтов или 8 битов или 1024 бита или 1024 байта...