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

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

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

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

Question

Информатика

Ронюша

23 февраля, 16:47

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

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

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

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

+3

Ответы (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.