Дано двузначное число.Определить одинаковы ли его цифры
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
Ахмади
var chislo1,firs,secon: integer;
begin
read (chislo1);
firs:=chislo1 div 10;
secon:=chislo1-firs*10;
if firs=secon then write('цифры числа одинаковые')
end.
begin
read (chislo1);
firs:=chislo1 div 10;
secon:=chislo1-firs*10;
if firs=secon then write('цифры числа одинаковые')
end.
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00