1. Информатика
  2. Напишите программу на

Напишите программу на qbasic, которая в последовательности целых чисел определяет количество чисел, кратных 3 и оканчивающихся на 2. программа получает на вход количество чисел в последовательности, а затем сами числа. количество чисел не превышает 1000. введенные числа по модулю не приевышают 30 000. программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 2.

Romanzadacha2 Romanzadacha2    1   15.05.2019 14:24    0

Ответы
lidok575 lidok575  10.06.2020 08:15

DIM A(1000)

INPUT "Please, enter the number of sequence elements ", N

FOR I = 1 TO N

PRINT "Please, enter an integer number ", I

INPUT A(I)

NEXT

J = 0

FOR I = 1 TO N

J = J + 1 - SGN((ABS(A(I)) - 12) MOD 10)

NEXT

PRINT "The result is   ", J

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
liliyaabramova1 liliyaabramova1  08.10.2021 16:26
Составьте логическую схему по данному выражению (4+C)(C+B)(A+D)...
toguzov2005 toguzov2005  08.10.2021 16:20
СТАВЛЮ Задание на фото Задание такое: расположить эти 5 элементов в правильном порядке P.S. Ок, ну информатика так информатика...
VlStar VlStar  15.02.2020 08:29
1) Таблица данных «Абитуриент» содержит поля: фами-лия, имя, отчество, дата рождения, пол, образование,место жительства.Определите тип и ширину каждого поля.Внесите 5 записей.​...
Lunadiana Lunadiana  15.02.2020 08:10
Дам фрагмент программы. Чему будет равна переменная s в результате работы данной программы? var s, n: integer; begin s:=2; for n:=2 to 5 do s:=s+n*2; write (s); end....
полина10092003 полина10092003  14.02.2020 20:54
S=a+b/2 блок схема сделайте...
Halimali10 Halimali10  28.05.2019 14:30
Составить программу в паскале массив a(m,n) заполнить случайными числами из промежутка [-15; -8] и подсчитать произведение элементов чётных строк.исходный массив и результат...
nastyahanna4728 nastyahanna4728  20.01.2021 11:37
Клавишу следует нажать, чтобы выполнить расширение или сужение обьекта?...
nekodaf nekodaf  20.01.2021 11:37
Составь программу в тетради самостоятельно:Составить программу, в которой необходимо найти произведение двух чисел a*b Числа при запуске программы должны вводиться с клавиатуры...
natalia245p025sf natalia245p025sf  05.10.2019 03:40
Складуть і запишіть речення за схемами.обґрунтувати вживання розділової знаків. 1.[ ],→(і→( 2.[ ],→( 3.[ ],→(...
КираГум КираГум  05.10.2019 03:40
Обьясните написание гласной в корне прилагательных меховой,новогодний,коротенький....

Популярные вопросы