1 ответ
Михон Гамыгин
1-ая программа
var x,s,z:integer;
begin
writeln('Введите целое число:');
readln(x);
z:=x;
while z lt;gt; 0 do begin
s:=s + z mod 10;
z:=z div 10;
end;
writeln('Сумма цифр числа ',x,' одинакова ',s);
end.
2-ая программка
var x,i,z,j,k,leng:integer;
a:array of integer;
begin
writeln('Введите целое число:');
readln(x);
z:=x;
while z lt;gt; 0 do begin
leng += 1;
z:=z div 10;
end;
SetLength(a,leng+1);
for i:=leng downto 1 do begin
a[i]:=x mod 10;
x:=x div 10;
end;
for i:=1 to leng do begin
for j:=i to leng-1 do begin
if(a[i] = a[j+1]) then
k += 1;
end;
end;
if(k gt; 0) then
writeln('Да')
else
writeln('Нет');
end.
Антонина
Вторую чуть не ту сбросил
Милана Губидулина
var x,i,z,j,k,leng:integer; a:array of integer;begin writeln('Введите целое число:'); readln(x); z:=x; while z <> 0 do begin leng += 1; z:=z div 10; end; SetLength(a,leng+1); for i:=leng downto 1 do begin a[i]:=x mod 10; x:=x div 10; end; for i:=1 to leng do begin for j:=i to leng-1 do begin if(a[i] = a[j+1]) then k += 1; end; end; if(k > 0) then writeln('Да') else writeln('Нет');end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Я хочу найти решение и ответ для этой задачи и получить
Математика.
Облако тегов