На языке Паскаля (Хотя бы одну):

1) Известны длины сторон двух прямоугольников. Вычислить площади прямоугольников и сравнить их. Определить, являются ли прямоугольники квадратами. Определить, поместиться ли первый прямоугольник внутри второго

И вторая Задача:

Перед началом наводнения уровень воды в реке составлял H метров. Во время наводнения каждый час уровень воды увеличивался на Р процентов по сравнению с уровнем предыдущего часа. Каким будет уровень воды через N часов после начала наводнения? Через сколько часов после начала наводнения уровень воды будет не менее чем К метров?

Question

Информатика

Федюня

12 октября, 19:01

На языке Паскаля (Хотя бы одну):

1) Известны длины сторон двух прямоугольников. Вычислить площади прямоугольников и сравнить их. Определить, являются ли прямоугольники квадратами. Определить, поместиться ли первый прямоугольник внутри второго

И вторая Задача:

Перед началом наводнения уровень воды в реке составлял H метров. Во время наводнения каждый час уровень воды увеличивался на Р процентов по сравнению с уровнем предыдущего часа. Каким будет уровень воды через N часов после начала наводнения? Через сколько часов после начала наводнения уровень воды будет не менее чем К метров?

+1

Ответы (1)

Знаешь ответ?

Настасея · Answer 1

Смогу только первую : (

program plochad;

var a, b, c, d, e, f:integer;

begin

writeln ('Введи стороны 1 ого прямоугольника: ');

readln (a, b);

writeln ('Введи стороны 2 ого прямоугольника: ');

readln (c, d);

e:=a*b;

f:=c*d;

if e>f then writeln ('Площадь 1 ого прямоугольника больше, чем 2 ого.')

else writeln ('Площадь 2 ого прямоугольника больше, чем 1 ого.');

end.