Запишите на языке Паскаль программу, которая подсчитает, сколько квадратов со стороной 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.
Ответы на вопрос
Ответил Ziorar
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 года назад
Другие предметы,
7 лет назад
Геометрия,
7 лет назад