Помогите с информатикой плииз кто разбирается...
Помогите с информатикой плииз кто разбирается...короче нужно решить задачку в QBasic. Напишите что писать хотя в какой нибудь из задач:
1)Дана последовательность целых чисел от 1000 до 2000. Определить сумму нечетных членов данной последовательности.
2)Известен радиус окружности найти длину окружности и площадь круга.
1)Дана последовательность целых чисел от 1000 до 2000. Определить сумму нечетных членов данной последовательности.
2)Известен радиус окружности найти длину окружности и площадь круга.
Гость
Ответ(ы) на вопрос:
Гость1)Дана последовательность целых чисел от 1000 до 2000. Определить сумму нечетных членов данной последовательности. cls s=0 for i=1001 to 2000 step 2 s=s+i next i print "сумма нечетных чисел = ", s ответ 750000 2)Известен радиус окружности найти длину окружности и площадь круга. cls input "введите радиус круга", r dlina=2*3.14*r ploshad=3.14*r*r print "длина окружности", dlina print "площадь круга", ploshad
Не нашли ответ?
Похожие вопросы