Объяснение:
function sum(x:integer):integer;
begin
sum:=(x div 100)+(x div 10 mod 10)+(x mod 10);
end;
var a,b,sa,sb:integer;
begin
writeln('Введите 3 трехзначных числа:');
readln(a,b);
sa:=sum(a);
sb:=sum(b);
writeln('sa = ',sa,' sb = ',sb);
if sa>sb then writeln('Сумма цифр в числе ',a,' больше')
else if sb>sa then writeln('Сумма цифр в числе ',b,' больше')
else writeln('Суммы цифр в числах равны');
end.
Пример:
Введите 3 трехзначных числа:
25 41
sa = 7 sb = 5
Сумма цифр в числе 25 больше
Не на том сайте ты решил об этом попросить, но раз уж спросил то я постараюсь внятно ответить.
Тебе нужно вставить загрузочную флешку с любимым из windows, но лучше всего windows 7, загрузиться с неё, и дождаться когда появится кнопка "Установить". В самом низу у тебя будет "восстановления системы". Нажимаешь на неё, у тебя появиться окошко с двумя галочками. Выбиваешь первый и нажимаешь Далее, после чего выбираешь Командная строка, где вводишь такие команды
bootrec /fixmbr
bootrec /fixboot
И после этого перезагружаешь компьютер и всё должно работать. Если будут какие то вопросы можешь написать мне в лс, постараюсь