Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
dim a(12), b(12), c(12)
input "введите размерность массивов а и в - m= ", m
print "введите элементы массивов а и в: "
for i=1 to m
input a(i), b(i)
next i
s=0
for i = 1 to m
c(i)= a(i) + b(m-i+1)
s= s+c(i)
print "массив а: "
print a(i);
print
print "массив b: "
print b(i);
print "массив c: "
print c(i);
print "сумма элементов массива с ="; s
сумму чисел один,два,три,четыре,пять разделить на разность чисел 10 и 7.равно пяти.
а)
var
p,d,h: real;
begin
readln(h);
p: =1200*9.8*h;
writeln(p);
end.
б)
m,h,r: real;
readln(r);
m: =1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
i,k: integer;
m,h,r,s: real;
readln(k);
s: =0;
for i: =1 to k do
s: =s+m;
writeln(s);
30 * 70 = 2100 символов на 1 странице
5 * 2100 = 10500 символов на 5 страницах
при кодировке ascii - 1 символ = 1 байт, значит 20500 байт оперативной памяти займет этот текст.
Популярные вопросы