Есть полоска бумаги шириной a и длиной b см. На какое максимальное количество квадратиков размером a x a см можно ее разрезать? Входные данные вводятс

@Миленькая · Регистрация: 15.02.2014

Author24 — интернет-сервис помощи студентам

Есть полоска бумаги шириной a и длиной b см. На какое максимальное количество квадратиков размером a x a см можно ее разрезать? Входные данные вводятся пользователем с экрана. Вывод так же осуществляется на экран./Pascal ABC

@dencil · 03.03.2014, 23:06

Pascal

var a,b,c:integer;
d:real;
begin
writeln('Введите ширину');
readln(a);
writeln('Введите длину');
readln(b);
writeln('Введите размерность квадратика');
readln(c);
d:=(a*b) div (c*c);
writeln('Исходный лист бумаги можно резрезать на ',d,' целых квадратиков');
readln
end.

@Cyborg Drone · 03.03.2014, 23:34

dencil, где написано, что a и b суть натуральные числа? И ещё:

Сообщение от Миленькая

шириной a и длиной b см <...> размером a x a см

Ну, как-то так:

Pascal

var a, b: real;
begin
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  writeln('Count of squares ', a, ' * ', a, ' = ', trunc(b / a));
  readln
end.

@Миленькая 2 / 1 / 0 Регистрация: 15.02.2014 Сообщений: 64
		1
	Есть полоска бумаги шириной a и длиной b см. На какое максимальное количество квадратиков размером a x a см можно ее разрезать? Входные данные вводятс 03.03.2014, 21:27. Показов 1497. Ответов 2 Метки нет (Все метки) Есть полоска бумаги шириной a и длиной b см. На какое максимальное количество квадратиков размером a x a см можно ее разрезать? Входные данные вводятся пользователем с экрана. Вывод так же осуществляется на экран./Pascal ABC 0

	03.03.2014, 23:34

Есть полоска бумаги шириной a и длиной b см. На какое максимальное количество квадратиков размером a x a см можно ее разрезать? Входные данные вводятс

Решение