Я думаю что: 4,5,7,8,12
Ну я так понял)
PRINT "Введите r:"
INPUT r
PRINT "Введите h:"
INPUT h
pi=3.14159
v1=pi*r*r*h
v2=1/3*pi*r*r*h
PRINT "Объем цилиндра v1:"
PRINT v1
PRINT "Объем конуса v2:"
<span>PRINT v2</span>
1) program _1;
var i, n: integer; sym:real;
begin
readln (n); p:=1;
for i:=2 to n do
p:=p*((i+1)/(i+2));
write(p:8:3);
end.
5) program _5;
var k, i: byte; s:real;
begin
readln(k);
for i:=1 to k do
s:=s+1/(i*i*i);
write(s:8:3);
end.
Помогла?лоооооооол,чем помочь то???
1. Необходимо выбрать вид теста: с открытыми вопросами (пользователь вводит ответ сам), с закрытыми вопросами (пользователь выбирает варианты ответа), комбинированный.
2. Разработать вопросы теста и варианты ответов.
3. Разработать алгоритм программы, автоматизирующей тест.
4. Записать разработанный алгоритм на языке программирования QBasic.
5. Отладить программу.