Т.е. "4" выходит?) Вот решение, но можно было короче, а можно было .NET подключить ещё... Но это вот классика)
var
a, b, c, d, f, P: real;
begin
readln(a, b, c, d, f);
P := (a + b + c + d + f) / 5;
writeln(P);
<span>end.</span>
[4, "11331"]
[5, "3011"]
[6, "1433"]
[7, "1053"]
[8, "575"]
[9, "463"]
[10, "381"]
[11, "317"]
[12, "279"]
[13, "234"]
[14, "1d3"]
[15, "1a6"]
[16, "17d"]
[17, "157"]
[18, "133"]
[19, "111"]
[20, "j1"]
[21, "i3"]
[22, "h7"]
[23, "gd"]
[24, "fl"]
[25, "f6"]
[26, "eh"]
[27, "e3"]
[28, "dh"]
[29, "d4"]
[30, "cl"]
[31, "c9"]
[32, "bt"]
[33, "bi"]
[34, "b7"]
[35, "av"]
[36, "al"]
код на Ruby
for i in 4..36
p [i, 381.to_s(i)]
end
R - Red красный, G - green зеленый, В - blue синий, аддитивная цветовая модель.
№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore