Дано прямокутник з периметром 28.48 и сторону а 5.6.Знайти другу сторону прямокутника і його площю. Решить нужно в паскале,даю много баллов,прошу нужна помошь.
Var a,b,p,s:real; begin write('p = '); readln(p); write('a = '); readln(a); b:=(p-2*a)/2; s:=a*b; writeln('b = ',b:4:2,' s = ',s:5:3); end. Пример: p = 28.48 a = 5.6 b = 8.64 s = 48.384
Спасибо огромное
Но почему он не обсчитывает?Вылезает окно там где нужно ввести данные То есть Р=28.48
И а=5.6
После этого окно закрываеться,и вылезает опять сама среда програмирования
Вы какую версию паскаля используете?
Извине,уже понял)
Спасибо Вам огромное,выручили
Пожалуйста.