program CS;
var S,C:real;
var r:integer;
Const pi = 3.14;
begin
writeln('Введите радиус');
Readln(r);
C:= 2*pi*r;
S:= pi*sqr(r);
Writeln('Длина окружности = ', C:5:2);
Writeln('Площадь круга = ', S:5:2);
Readln();
end.
Объяснение:
Указываем переменные и константу pi. Так как радиусом указывается целое число, то присваиваем целочисленный тип (integer).
Площадь же и длина могут выходить за рамки целых чисел, поэтому присваиваем им вещественный тип (real).
writeln('Введите радиус'); - Выводит на экран надпись в скобках.
Readln(r); - функция для ввода радиуса
C:= 2*pi*r; - присваиваем значение для С (длина окружности)
S:= pi*sqr(r); - присваиваем значение для S (площадь круга)
Writeln('Длина окружности = ', C:5:2); - вывод на экран длины окружности ( двоеточие нужно для округления. После первого двоеточия указывается отступ от крайнего символа в данной строке, а после второго количество знаков после запятой).
Writeln('Площадь круга = ', S:5:2); - вывод на экран площади круга.
Readln(); - требуется для того, чтобы программа сразу не закрывалась. (В чистом PascalABC вроде бы не требуется, а вот в DELPHI точно. Но лучше оставить, если спросят, что это, то ты знаешь что ответить)
var x:byte;
begin
writeln('Введите число, чтобы узнать, какому месяцу оно соответствует:');
Readln(x);
Case x of
0: writeln('Такого месяца не существует');
1: writeln('Январь.');
2: writeln('Февраль.');
3: writeln('Март.');
4: writeln('Апрель.');
5: writeln('Май.');
6: writeln('Июнь.');
7: writeln('Июль.');
8: writeln('Август.');
9: writeln('Сентябрь.');
10: writeln('Октябрь.');
11: writeln('Ноябрь.');
12: writeln('Декабрь.');
13..1000: writeln('Такого месяца не существует.');
end;
end.