Запишите на языке Паскаль программу, которая подсчитает, сколько квадратов со стороной 130мм войдет в прямоугольник с произвольными сторонами
vladk5555:
А на Питоне не подойдёт?
Паскаль забыл практически полностью, когда перешёл на Питон.
Подойдёт?
var a,b: integer;
begin
Write('a= ');
Read(a);
Write('b= ');
Read(b);
Write('n= ',(a div 130)*(b div 130))
end.
var a,b: integer;
begin
Write('a= ');
Read(a);
Write('b= ');
Read(b);
Write('n= ',(a div 130)*(b div 130))
end.
Ответы
Ответ дал:
0
var
a,b: integer;
begin
Write('a= ');
Read(a);
Write('b= ');
Read(b);
Write('n= ', (a div 130)*(b div 130))
end.
Вас заинтересует
2 года назад
2 года назад
3 года назад
3 года назад
8 лет назад
8 лет назад
9 лет назад