Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·R2.

В качестве значения π использовать 3.14

написать в ассемблере

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 const
pi = 3.14; { <-- Число "пи" }

var
R, L, S: real;

begin
write('R = ');
readln(R); { <-- Вводим радиус }
L := 2 * pi * R; { <-- Вычисляем длину окружности }
S := pi * sqr(R); { <-- Вычисляем площадь круга }
writeln('Результат:');
writeln(' L = ', L:0:2);
writeln(' S = ', S:0:2);
readln
end.
это код в паскаль

GDIZzzEr    3   12.03.2021 14:11    0