тому кто ответит правильно А тот, кто скопирует ответ или напишет полную ерунду ради , полетит в бан - id1732611320220116 от kristushaushakova 16.01.2022 23:19

Question

Информатика: тому кто ответит правильно А тот, кто скопирует ответ или напишет полную ерунду ради , полетит в бан Дайте развернутые ответы на теоретические вопросы: Что такое система счисления? Чему равно основание системы счисления? Что такое развернутая форма записи числа?

kristushaushakova · Accepted Answer

Пишу на Delphi (ObjectPascal):

function Summa(a,b:integer):string;
var a1,b1:integer;
begin //находим сумму первого числа
a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);

//находим сумму второго числа
b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);

//выясняем что больше
if a1>b1 then
Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1)
else
Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin //Выполнение и вывод результата функции через нажатие кнопки
Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text));
end;
Даны два четырехзначных числа. определить, сумма цифр которого из них больше. подсчет суммы цифр орг

Даны два четырехзначных числа. определить, сумма цифр которого из них больше. подсчет суммы цифр орг

MOGZ ответил