Пятница, 29 Марта 2024, 00:54

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Basic » QBasic, решение задачи с циклом
QBasic, решение задачи с циклом
ScvadДата: Воскресенье, 02 Марта 2014, 20:30 | Сообщение # 1
участник
Сейчас нет на сайте
Вот задание,если решите буду очень благодарен.

Код

Задание:
Дана n последовательность трехзначных целых чисел.
1.Определить сумму чисел,оканчивающихся на 0.
2.Произведение чисел,оканчивающихся на два 0.

Решить используя: DO WHILE .... LOOP

Добавлено (02.03.2014, 20:30)
---------------------------------------------
Help! очень срочно


-Mikle-Дата: Воскресенье, 02 Марта 2014, 22:46 | Сообщение # 2
Изобретатель велосипедов
Сейчас нет на сайте
Код
DEFLNG A-Z

DIM i, d, Sum, Mul, n

n = 7 ' Количество чисел
i = 1
Sum = 0
Mul = 1
DO WHILE i <= n
   READ d
   IF d MOD 10 = 0 THEN Sum = Sum + d
   IF d MOD 100 = 0 THEN Mul = Mul * d
   i = i + 1
LOOP

PRINT "Сумма чисел, оканчивающихся нулём"; Sum
PRINT "Произведение чисел, оканчивающихся двумя нулями"; Mul

' Данные
DATA 145,288,190,200,435,500,910
Форум игроделов » Программирование » Basic » QBasic, решение задачи с циклом
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг