Ответ:100.000мб
Объяснение:Ну 5000мб хватает очень много.А 100гб даже не знаю)
var s,i,n,a:integer;
BEGIN
read(a,n);
s:=1;
for i := 1 to n do
s:=s*a;
writeln('a в степени n = ',s);
s:=1;
for i := 1 to n do
s:=s*i;
writeln(s);
s:=0;
for i:= 1 to n do
begin
read(a);
s:= s + a;
end;
writeln('среднее арифметическое = ',s/n)
END.
# дано число если оно положительное то вывести прямоугольник иначе квадрат
# Код на ruby 2.2.3p173
def zadanie(c)
if c > 0
p "priamougol`nik"
return
end
p "kvadrat"
end
# Примеры применения
zadanie(10)
zadanie(-10)
zadanie(0)