Задача 1: 1
Задача 2:
begin
s:=0; k:=1;
while k < 11 do begin
s:=s+k; k:=k+1;
end;
write(s);
end.
Задача 3:
11 10 9 8 7 7 10 11 12 13 14
Задача 4:
const N = 20;
const MAX = 100;
const MIN = -100;
var A: array [1..N] of integer;
var i,s: integer;
begin
randomize();
s:=-1;
writeln('Исходный массив: ');
for i:=1 to N do
begin
A[i]:=random(MAX-MIN+1)+MIN;
if (A[i]>0) and (A[i] mod 5 = 0) then
begin
if (s=-1) then s:=A[i]
else if (A[i]<s) then s:=A[i];
end;
write(A[i],' ');
end;
writeln();
if (s<>-1) then writeln('Минимальное значение среди положительных',
' элементов массива кратных 5: ',s)
else writeln('Не найдено');
end.
program z1;
var
q, w, e, r, t, y, u, i, o, p, a, s, d, f, g, h, j, k, l, z: integer;
begin
writeln('Введите рост 1 учащегося');
readln(q);
writeln('Введите рост 2 учащегося');
readln(w);
writeln('Введите рост 3 учащегося');
readln(e);
writeln('Введите рост 4 учащегося');
readln(r);
writeln('Введите рост 5 учащегося');
readln(t);
writeln('Введите рост 6 учащегося');
readln(y);
writeln('Введите рост 7 учащегося');
readln(u);
writeln('Введите рост 8 учащегося');
readln(i);
writeln('Введите рост 9 учащегося');
readln(o);
writeln('Введите рост 10 учащегося');
readln(p);
writeln('Введите рост 11 учащегося');
readln(a);
writeln('Введите рост 12 учащегося');
readln(s);
writeln('Введите рост 13 учащегося');
readln(d);
writeln('Введите рост 14 учащегося');
readln(f);
writeln('Введите рост 15 учащегося');
readln(g);
writeln('Введите рост 16 учащегося');
readln(h);
writeln('Введите рост 17 учащегося');
readln(j);
writeln('Введите рост 18 учащегося');
readln(k);
writeln('Введите рост 19 учащегося');
readln(l);
writeln('Введите рост 20 учащегося');
readln(z);
writeln('Средний рост учащихся ', (q + w + e + r + t + y + u + i + o + p + a + s + d + f + g + h + j + k + l + z) / 20, ';');
end.
a=int(input())
c=int(input())
print((a+4*c)/(2*c+a))