Дан радиус окружности(любой, заданный пользователем) Найти длину и площадь круга. Выполнить в паскале.
264
290
Ответы на вопрос:
program Hello;
var r : integer;
begin
write('Введите радиус круга: ');
readln(r);
writeln('Длина круга = ', 2 * 3.1415 * r:0:2);
writeln('Площадь круга = ', r * r * 3.1415:0:2)
end.
// pascalabc.net 3.3, сборка 1542 от 05.10.2017 // внимание! если программа не работает, обновите версию! uses numlibabc; begin var (num,denom): =readinteger2('числитель и знаменатель 1-й дроби: '); var f1: =frc(num,denom); (num,denom): =readinteger2('числитель и знаменатель 2-й дроби: '); var f2: =frc(num,denom); f1.print; write('* '); f2.print; write('= '); (f1*f2).print end. примеры числитель и знаменатель 1-й дроби: 4 9 числитель и знаменатель 2-й дроби: 3 8 4/9 * 3/8 = 1/6 числитель и знаменатель 1-й дроби: 32432424 10213133 числитель и знаменатель 2-й дроби: 23123 12313123 32432424/10213133 * 23123/12313123 = 749934940152/125755562844359 числитель и знаменатель 1-й дроби: 15 2 числитель и знаменатель 2-й дроби: 8 15 15/2 * 8/15 = 4
Популярно: Информатика
-
Juliavaishle117.09.2022 05:31
-
Христина85421.03.2023 00:30
-
123456789085408.09.2022 17:23
-
aisipat05515.07.2022 10:41
-
derkioptu01.04.2023 00:54
-
Nolly56707.11.2020 22:35
-
zannaeroshik50528.10.2021 02:30
-
elisbuh02.11.2022 22:10
-
Anastasia19132709.08.2020 01:45
-
КариM30.11.2021 05:30