17 круг стадиона 800 метров, по введенной дистанции определить сколько кругов и дополнительно метров нужно пробежать спортсменам

282

320

Посмотреть ответы 2

Ответы на вопрос:

kirovaalex16

Информатика

4,7(93 оценок)

Var s,k,m: integer; begin write('s = '); readln(s); k: =s div 800; m: =s mod 800; writeln('кругов: ',k,' и ещё метров: ',m); end. пример: s = 5020 кругов: 6 и ещё метров: 220

malekovemir

Информатика

4,5(32 оценок)

Пишу на 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;