Найти сторону прямоугольника зная его периметр и одну сторону, записать задачу с решением на языки программирования Паскаль
Найти сторону прямоугольника зная его периметр и одну сторону, записать задачу с решением на языки программирования Паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar p,a,b:real;
begin
writeln('ведите периметр');
readln(p);
writeln('введите 1 сторону');
readln(a);
b:=p/2*a;
writeln('2 сторона равна =', b);
end.
ГостьProgram asd;
USES crt;
var p,a,b:real;
BEGIN
clrscr;
writeln('Vvedite P: ');
readln(p);
Writeln('Vvedite storony: ');
readln(a);
b:=(p-2*a)/2;
writeln('Storona ravna B: ', abs(b));
END.
Не нашли ответ?
Похожие вопросы