Предмет: Информатика,
автор: Pigeon1458
Запишите на языке Паскаль программу, которая подсчитает, сколько квадратов со стороной 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.
Похожие вопросы
Предмет: Алгебра,
автор: sonyoptimys
Предмет: Русский язык,
автор: арина475
Предмет: Русский язык,
автор: pahomova1984
Предмет: География,
автор: chvanga228