Регистрация
pfgr
20.05.2023 03:40
Информатика
Есть ответ 👍

Язык программирования бейсик . кто может найти ошибку в моем решении : "напишите программу, которая находит кол-во чисел, кратных 3, но не кратных 6, в последовательности заданных чисел. программа получает на вход целые числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). кол-во чисел не превышает 1000. введенные числа по модулю не превышают 30000." решение: 10 cls 20 for i=1 to 1000 30 input "введите число"; a(i) 40 if a(i)=0 then m=i and 60 50 next i 60 for i=1 to m 70 if a(i) mod 3 = 0 and a(i) mod 6 < > 0 then s=s+1 80 next i 0 print s 100 end заранее

284
365
Посмотреть ответы 2

Ответы на вопрос:

Selid
Selid
4,7(44 оценок)

вот так должно быть 

5 dim a(1000)

40 if  a(i)=0 then m=i: go to 60  

 

90 print s

serega228002
serega228002
4,5(78 оценок)

ответ:

в экселе все легко делается

Популярно: Информатика