Question

Написать программу через: program. var. writeln и тд1.Написать программу. Данн прямоугольник размерами 543 на 130 мм. Определить сколько квадратов со стороной 130 мм можно вырезать из данного прямоугольника. 2. Написать программу. С некоторого момента прошло 234 дня. Определить сколько полных недель прошло с этого момента.

Answer 1

Программы в скринах.

Answer 2

Program to Determine the Number of Squares that can be Cut from a Rectangle

To solve the first problem, we can write a program that calculates the number of squares with a side length of 130 mm that can be cut from a given rectangle with dimensions 543 mm by 130 mm.

Here's an example program in Pascal:

program CountSquares;
var
  rectangleWidth, rectangleHeight, squareSide, count: integer;
begin
  rectangleWidth := 543;
  rectangleHeight := 130;
  squareSide := 130;
  
  count := (rectangleWidth div squareSide) * (rectangleHeight div squareSide);
  
  writeln('The number of squares that can be cut from the rectangle is: ', count);
end.

In this program, we declare variables `rectangleWidth`, `rectangleHeight`, `squareSide`, and `count`. We assign the values 543, 130, 130, and 0 to these variables, respectively.

The `count` variable is calculated by dividing the `rectangleWidth` by `squareSide` and multiplying it by the `rectangleHeight` divided by `squareSide`. This gives us the total number of squares that can be cut from the rectangle.

Finally, we use the `writeln` statement to display the result.

The output of this program will be: ``` The number of squares that can be cut from the rectangle is: 16 ```