Дано трехначное число.Напишите программу,которая определяет: а)есть ли среди цифр заданного целого трехзначного числа одинковые:
5-9 класс
|
(Таблица)
Пример входных днных; пример выходных данных;
123 нет
121 да
222 да
Самый бесхитростный вариант:
var
a:string;
f:boolean;
begin
write('Введите число: ' );
readln(a);
f:=false;
if a[1]=a[2] then f:= true;
if a[1]=a[3] then f:= true;
if a[2]=a[3] then f:= true;
if f=false then writeln('нет') else writeln('да')
end.
Пишу на QBasic
CLS
INPUT A
Q=A MOD 10
W=(A MOD 100) DIV 10
E A DIV 100
IF Q=W OR Q=E OR W=E THEN
PRINT "да"
ELSE
PRINT "нет"
END IF
А задание на какую тему? Какие команды желательно использовать? Или просто решить любым способом?
Тема: Паскаль.Програмирование разветвляющихся алгоритмов.
Другие вопросы из категории
а)Толпе б)Истории в)Предмету г)Материи
3.Какое слово будет вторым в алфавитном порятке?
а)Мавр б)Магма в)Мавзолей г)Манна
4.Стихотворение-поэзия=рассказ-?
а)Книга б)Писатель в)Повесть г)Предложение д)Проза
5.Север-юг=осадки-?
а)Пустыня б)Полюс в)Дождь г)Засуха д)Климат
Выигрывает тот, кто возьмёт последний камень.Как должен играть первый игрок, чтобы гарантированно выиграть?
Читайте также
а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 123; 121; 222
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
1) есть ли среди цифр заданного трехзначного числа одинаковые;
Пример входных данных
123 нет
121 да
222 да
2) является ли число '' перевертышем" , т.е. числом , десятичная запись которого читается одинаково слева направо и справа налево.
Пример входных данных
122 нет
121 перевертыш
222 перевертыш
Пожалуйста с примером!!!
Заранее большое спасибо
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат