program perime;var a,b,p:integer;beginwrite(039;введите длину и

Program perime;
var a,b,p:integer;
begin
write('введите длину и ширину');
read(a,b);
P:=(a+b)*2;
writeln('p=',p);
end.
Поменять последнюю строку чтобы было P=2*(3+4)=14

Задать свой вопрос
1 ответ

Program perimetr;

var a,b,P: integer;

begin

writeln('Введите длину и ширину: ');

readln(a,b);

P:=(a+b)*2;

writeln('P=2*(',a,'+',b,')=',P);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт