Дан брусок длиной 23 метра.напишите программу, которая посчитает,какое минимальное целое количество отрезков длиной 1,5 метра и 2 метра получится из данного бруска
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const n = 10; var a:array[1..n] of integer; i,j:integer; begin // Заполним массив сл. числами for i:=1 to n do begin a[i]:=random(0,99); write(a[i]:4); end; writeln; //сортировка массива по убыванию последней цифры. for i := 1 to n-1 do for j := 1 to n-i do if (a[j] mod 10) > (a[j+1]mod 10) then swap(a[j],a[j+1]); writeln('Отсортированный массив : '); for i:=1 to n do write(a[i]:4); end.
print(23 // 1.5, 23 // 2)
Пояснение:
Первое число - ответ на перчый вопрос, второе число - на второй.