Предмет: Информатика, автор: Pigeon1458

Запишите на языке Паскаль программу, которая подсчитает, сколько квадратов со стороной 130мм войдет в прямоугольник с произвольными сторонами


vladk5555: А на Питоне не подойдёт?
vladk5555: Паскаль забыл практически полностью, когда перешёл на Питон.
Ziorar: Подойдёт?
var a,b: integer;
begin
Write('a= ');
Read(a);
Write('b= ');
Read(b);
Write('n= ',(a div 130)*(b div 130))
end.

Ответы

Автор ответа: Ziorar
0

var

a,b: integer;

begin

Write('a= ');

Read(a);

Write('b= ');

Read(b);

Write('n= ', (a div 130)*(b div 130))

end.

Похожие вопросы
Предмет: Алгебра, автор: sonyoptimys
Предмет: Русский язык, автор: pahomova1984