16. После строительства дома осталось некоторое количество плиток. Их можно использовать для выкладывания прямоугольной площадки на участке рядом с домом. Если укладывать в ряд по 10 плиток, то для квадратной площадки плиток не хватит. При укладывании по 8 плиток в ряд остаётся один неполный ряд, а при укладывании по 9 плиток тоже остаётся неполный ряд, в котором на 6 плиток меньше, чем в неполном ряду при укладывании по 8. Напишите программу на языке Паскаль, вычисляющую, сколько всего плиток осталось после строительства дома.
Ответ
Вот пример программы на языке Паскаль, которая вычисляет количество оставшихся плиток после строительства дома, исходя из указанного условия:
program LeftoverTiles;
var
totalTiles, remainingTiles, rows: Integer;
begin
writeln('Введите общее количество плиток:');
readln(totalTiles);
// Вычисляем количество плиток для квадратной площадки
rows := totalTiles div 10;
totalTiles := totalTiles - rows * 10;
// Вычисляем количество оставшихся плиток для прямоугольной площадки
if (totalTiles mod 9) > (totalTiles mod 8) + 6 then
begin
rows := rows - 1;
remainingTiles := totalTiles mod 9;
end
else
begin
remainingTiles := totalTiles mod 8;
end;
// Выводим результат
writeln('Осталось ', remainingTiles, ' плиток после строительства дома');
writeln('Количество полных рядов для прямоугольной площадки: ', rows);
readln;
end.Эта программа запрашивает общее количество плиток. Затем она использует операцию деления нацело (div) и операцию остатка от деления (mod) для вычисления количества плиток для квадратной площадки и количества оставшихся плиток для прямоугольной площадки. Учитывается условие, что при укладывании по 9 плиток остается меньше плиток в неполном ряду, чем при укладывании по 8.