Поместятся ли два квадрата со сторонами a см внутри прямоугольника с шириной x см и длинной y см. Помогите написать на паскале, пожалуйста.
10-11 класс
|
program n1;
var a,x,y,sk,sp:real;
begin
writeln('storona kvadrata');
readln(a);
writeln('storonbl pryamoygol'nika');
readln(x,y);
sk:=a*a+a*a;
sp:=x*y;
if sk<=sp then
writeln('pomestitsya');
else
writeln('ne pomestitsya')
end;
может ковычки где не надо поставил, в программе увидишь, просто не имею паскаля на компьютере, писал прямо сюда, должно быть верно. гуру сайта проверят.
Другие вопросы из категории
попасть в команду,если рост игрока команды должен быть не менее 170см. Считайте рост претендента в команду случайным числом из диапазона от 150 до 300 см, число претендентов n=50.
0.1E + 05, -33.3E - 4, 25.5E + 0?
Запишите по правилам языка Паскаль такие выражения:
a) 1.5 + 2 (x^2 + bx)
b) 3(x + 5) - x^3
_____________
2x^2 + x
Вычислить значения выражений :
a) 125 mod 30
b) 20 div 6 mod 5
Записать выражения в общепринятой форме:
a) (-2*b+3*b-4*a*c)/3*a
Пусть a, b: integer, c: real. Определите тип выражения (целый или вещественный) :
a) a/b
b) a + b
c) a + c
Чему равны значения переменных x и y после выполнения команд: x:=2 ; y:=5 ; y:=x ; x:=x+1?
Решите, пожалуйста, хоть одно какой-нибудь задание. СРОЧНО НУЖНО!
Читайте также
квадраты со стороной, равной 425-131*3=32, и т.д. На какие квадраты и в каком их количестве будет разрезан исходный прямоугольник?
стороной 141, пока это возможно. Затем вновь отрезают квадраты со стороной,
равной 324-2*141=42 и т.д. На какие квадраты и насколько будет разделен прямоугольник?
Решение программы в Pascal ABC
сторонами a и b. Сколько квадратов со стороной с можно из него вырезать.