Вывести программы в QBasic: 1). Даны целые числа K и N. Вывести N раз число K. 2). Даны два целых числа A и B. Найти произведение всех четных чисел от A до B включительно. 3). Даны два целых числа A и B. Найти сумму кубов всех нечетных чисел от A до B включительно.
CLSINPUT "k=", kINPUT "n=", nFOR i = 1 TO n PRINT k;NEXT iТестовое решение:k=152n=12 152 152 152 152 152 152 152 152 152 152 152 152CLSINPUT "a,b=", a, bp = 1FOR i = a TO b IF i MOD 2 = 0 THEN p = p * iNEXT iPRINT pТестовое решение:a,b=7,14 13440CLSINPUT "a,b=", a, bs = 0FOR i = a TO b IF i MOD 2 = 1 THEN s = s + i ^ 3NEXT iPRINT sТестовое решение:a,b=4,10 1197
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Вывести программы в QBasic: 1). Даны целые числа K и N. Вывести N раз число K. 2). Даны два целых числа A и B. Найти произведение всех четных чисел от A до B включительно. 3). Даны два целых числа A и B. Найти сумму кубов всех нечетных чисел от A до B включительно.» от пользователя ТОХА СВЯТКИН в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!