чисел, кратных 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

Заранее спасибо

5-9 класс информатика ответов 1

Veronikapilyuqina / 08 марта 2015 г., 10:25:33

Задания для самостоятельной работы:

1. Имеются два числа.

a) Вычислите сумму и разность этих чисел,
используя два оператора readln.

b) Перепишите программу так, чтобы
использовался один оператор readln.

c) Добавьте комментарии к программе.

2. Имеются три числа. Вычислите их
произведение.

3. По заданным сторонам прямоугольника a и
b вычислите его периметр и площадь.

4. Человеку сегодня исполнилось R лет.
Сколько ему дней? Часов? Минут? Секунд? (Високосные годы не учитывать)

5-9 класс информатика ответов 1

Yumash / 17 февр. 2014 г., 21:11:35

задание.Составить программу по следующей схеме: Составить программу так,чтобы в строке Иван копал картофель слово картофель заменилось на редис. Или

так: Написать любое простое предложение и написать программу по счету букв считая пробелы и цифры.

5-9 класс информатика ответов 1

ДианаСаф / 12 янв. 2015 г., 21:24:15

Задачи на кол-во информации)

1. Определите информационный объем текста в кавычках. Кавычки не учитывать: "Приучайтесь думать точно!"
2. На дискете помещается 1,4 Мб информации. Сколько дискет может заменить один жесткий диск, емкостью 420 Мб?
3. Сколько необходимо памяти (в Мб), чтобы сохранить картинку, которую мы видим на экране, если про монитор известно: кол-во точек 800*1200, кол-во цветов - 521?
4. а) в следующих записях проставьте знаки отношений:
3,2 Гбайта 4000 Мб
7 байт 55 бит
8150 байт 8 Кб
б) дополните равенства
9 байтов=___битам
20 Мбайтов=___Кб
5. Информация передаётся со скоростью 3 Кб/сек. Какой объем информации будет передан за 20 минут? Ответ дать в Мб.

5-9 класс информатика ответов 1

Elizbliz1 / 20 июля 2014 г., 23:08:21

Пожалуйста! Напишите программу для паскаля-

Имеются два числа:
а) вычислите сумму и разность этих чисел, используя два оператора readln.
б) перепишите программу так, чтобы использовался один оператор readln.
в) добавьте комментарии к программе.

5-9 класс информатика ответов 1

Вы находитесь на странице вопроса "модифицировать программу так, чтобы заданное кол-во не превышало к стоимости менее 5 копеек. использовать цикл с предусловием", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.