Предложенный сценарий и выбери переменные, необходимые при написании программного кода: ка Спрайт Действия рок Тие 1. Стоит в левом нижнем углу сцены. Кот яснение 2. Перемещается по сцене 7 раз. 3. Каждый раз число шагов увеличивается на 10 шагов Собачка 1. Считает шаги Кота. 2. После завершения движения Кота выдаёт ответ. Верных ответов: 2 А число костюмов Кота общее число повторений шагов Котом - 5 увеличение шагов при каждом повторении действий Котом число костюмов Собачки рока общее число шагов, пройденное Собачкой В Проверить л. (0 с) РУС 00:10 20) 10 2020
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;
увилечение шагов ,пройденной собачки и общее число сори если не правильно XD