Program Pl_kruga;
uses
crt;
procedure SKr(L: real; var S: real);
var
R: real;
begin
R := L / 2 * Pi;
S := Pi * sqr(R);
end;
{ а это вызов }
var
L, S: real;
begin
Writeln('введи...');
Readln(L);
SKr(L, S);
Writeln(S:4:2)
end.
Я доказала всего лишь один из законов, посмотри тот ли тебе нужен
Сосуд изготовлен в Греции в 3 веке. Метод от противного - если берём за правильный вариант финский сосуд, то расходятся даты его изготовления у Гриши и Алёши. Значит, сосуд действительно изготовлен в Греции, и так как ребята ошиблись с датой, то прав Боря - 3 век.
# Код на ruby 2.2.3p173
def zadanie(lineal_array, x, y)
k = 0
lineal_array.each {|element|
k = k + 1 if element < x or element > y
}
return k
end
# Примеры применения
p zadanie([1, 2, 3, 4, 5], 2, 3)