var
a: array[1..1000] of real;
i, k, n, z: integer;
begin
writeln('введите число n: ');
readln(n);
writeln('введите число z: ');
readln(z);
writeln('введите ',n,' действительных чисел (каждое с новой строки): ');
for i : = 1 to n do
begin
readln(a[i]);
if a[i] > z then
begin
a[i] : = z;
k : = k + 1;
end;
end;
writeln('количество замен: ', k);
end.
Если дан не радиус, вычислим радиус, а из него и всё остальное. Формулы для вычисления радиуса:
Обратные формулы:
Код (Python 3):
from math import sqrt, pi
id = int(input())
if id == 1:
R = float(input())
elif id == 2:
R = float(input()) / 2
elif id == 3:
R = float(input()) / 2 / pi
else:
R = sqrt(float(input()) / pi)
D = 2 * R
L = 2 * pi * R
S = pi * R**2
if id == 1:
print(D, L, S)
elif id == 2:
print(R, L, S)
elif id == 3:
print(R, D, S)
else:
print(R, D, L)
Пример ввода:
2
4
Пример вывода:
2.0 12.566370614359172 12.566370614359172
n:intger;
begin
readln(n);
if n mod 5 = 0 then
writeln('Число делится на 5 без остатка')
else
writeln('Число делится на 5 c остатком')
end.