Найти сумму и произведение всех целых чисел от 1 до 20 до 300 кратных…

60

Найти сумму и произведение всех целых чисел от 1 до 20 до 300 кратных 19. Это в QBasic

категория: информатика

ответить

в избранное

51

stalkernet71

13 марта 2023

s=0p=1FOR i=200 TO 300IF (i MOD 19)=0 THEN PRINT "i=",i: s=s+i: p=p*iEND IFNEXT iPRINT sPRINT p

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

Как дать характеристику слову блок-схема?

Дайте развернутую характеристику растровых и векторных изображений…

Установите соответствие между названиями программ и классами программного обеспечения: Far ManagerMicrosoft…

Сколько форм должно быть в базе данных Access?

Решите пожалуйста. С решением. Спасибо!

Определите объем графического файла в Кбайтах…

ДАЙТЕ ПОЖАЛУЙСТА РАЗВЕРНУТЫЙ ОТВЕТ КАК РЕШАТЬ Файл размером 16 Кбайт передается через некоторое соединение со скоростью…

Что исполняют алгоритмы? Разрабатывать алгоритмы может только?

Найти количество двузначных натуральных чисел кратных трем. Составить программу по темециклы

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...