7. Щоб знайти потрібний файл чи папку потрібно: А) перейти з однієї папки в іншу у програмі Провідник;
Б) вибрати команду ПУСК/Знайти;
В) виконати дії Мій комп'ютер/Мережеве оточення.
о

Question

Информатика: 7. Щоб знайти потрібний файл чи папку потрібно: А) перейти з однієї папки в іншу у програмі Провідник; Б) вибрати команду ПУСК/Знайти; В) виконати дії Мій комп ютер/Мережеве оточення. о​

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