Вкаждом из следующих пунктов перечислены объекты, сгруппированные по некоторому признаку. определите - id229548720200915 от Nika7854 15.09.2020 20:21

Question

Информатика: Вкаждом из следующих пунктов перечислены объекты, сгруппированные по некоторому признаку. определите эти признаки.1) приставка, корень, суффикс, окончание; 2) подлежащее, сказуемое, определение, дополнение; 3) глагол, существительное, прилагательное, местоимение; 4) отрезок, круг, квадрат, треугольник; 5) сканер, клавиатура, мышь, джойстик; 6) хранение, передача, обработка

Nika7854 · 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 ответил