Создать два алгоритма(один с предусловием, второй с постусловием) на Pascal, которые будут вычислять среднее геометрическое значение всех чётных чисел, значения которых лежат в диапазоне от a до b
Салат оливье. ингредиенты 1 баночка зеленого горошка (400г) 300 г мяса 4 яйца 350 г картофеля 100 г соленых или маринованных огурцов 150 г лука соль майонез алгоритм приготовления: 1.мясо отварить до готовности (варить около 40 минут после закипания) . 2.остудить. 3.лук мелко покрошить. 4.залить его кипятком и оставить на 10 минут, затем воду слить, лук промыть в холодной воде. 5.мясо нарезать кубиками. 6.картофель почистить, нарезать кубиками. 7. яйца мелко покрошить. 8.огурцы мелко нарезать. 9.смешать картофель, мясо, лук, горошек (воду слить) , яйца, огурцы. 10.посолить. 11. заправить майонезом. 12. украсить по вкусу, например зеленым горошком
Const n = 10; var a:array[1..n]of integer; i,k,temp:integer;
begin for i:=1 to n do a[i]:=random(21) - 10; repeat writeln('Введите k (k<>1 и k<>10)'); readln(k); if (k=1) or (k=n) then writeln('Ошибка, повторите ввод'); until (k<>1) and (k<>n); for i:=1 to n do write(a[i]:4);writeln; temp:=a[k-1];a[k-1]:=a[k+1];a[k+1]:=temp; for i:=1 to n do write(a[i]:4); end.
Тестовое решение: Введите k (k<>1 и k<>10) 1 Ошибка, повторите ввод Введите k (k<>1 и k<>10) 5 7 -5 -6 6 -7 3 9 8 7 -6 7 -5 -6 3 -7 6 9 8 7 -6
Pascal ABC.
1. Код с предусловием:
var
a, b, n, s: integer;
begin
readln(a, b);
s := 1;
n := 0;
while a <= b do begin
if a mod 2 = 0 then begin
s := s * a;
inc(n);
end;
inc(a);
end;
writeln( exp(ln(s)*(1/n)) );
end.
2. Код с постусловием:
var
a, b, n, s: integer;
begin
readln(a, b);
s := 1;
n := 0;
repeat
if a mod 2 = 0 then begin
s := s * a;
inc(n);
end;
inc(a);
until a > b;
writeln( exp(ln(s)*(1/n)) );
end.