Решаем задачи Абрамян на Паскале. Begin3

Begin3. Даны стороны прямоугольника $a$ и $b$ . Найти его площадь $S=a*b$ и периметр $P=2*(a+b)$ .

Решение:

program Begin3;
var
  S,P,a,b: Real;
begin
  Writeln('Введите стороны прямоугольинка. ');
  Write('Введите значение стороны a: ');
  Readln(a);
  Write('Введите значение стороны b: ');
  Readln(b);
  S:=a*b;
  Writeln('Площадь прямоугольника равна: ', S);
  P:=2*(a+b);
  Writeln('Периметр прямоугольника равна: ',P);

end.

program Begin3;

var

S,P,a,b: Real;

begin

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

Write('Введите значение стороны a: ');

Readln(a);

Write('Введите значение стороны b: ');

Readln(b);

S:=a*b;

Writeln('Площадь прямоугольника равна: ', S);

P:=2*(a+b);

Writeln('Периметр прямоугольника равна: ',P);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Begin3

Комментарии:

Добавить комментарий Отменить ответ