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

Begin7. Найти длину окружности $L$ и площадь круга $S$ заданного радиуса $R$ :
$L=2*\pi*R$ , $S=\pi*R^2$ .
В качестве значения $\pi$ использовать 3.14.

Решение:

program Begin7;
var
  R,L,S: Real;
begin
  Write('Введите радиус окружности: ');
  Readln(R);
  L:=2*3.14*R;
  Writeln('Длина окружности равна: ',L);
  S:=3.14*sqr(R);
  Writeln('Площадь окружности равна: ',S);
end.

program Begin7;

var

R,L,S: Real;

begin

Write('Введите радиус окружности: ');

Readln(R);

L:=2*3.14*R;

Writeln('Длина окружности равна: ',L);

S:=3.14*sqr(R);

Writeln('Площадь окружности равна: ',S);

end.

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

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

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

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