Войти Регистрация Спроси ai-bota

Вмассиве b1, найти количество чисел равных 3,5

Ответ:

Ник1233211

04.10.2020 02:58

Dim b(45)
for i=1 to 45
print "b(";i;")= ";
input b(i)
next i
for i=1 to 45
if b(i)=3.5 then
s=s+1
end if
next i
print "kolichestvo: "; s

0,0(0 оценок)

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

Yourname756

06.10.2021 10:02

Запишите числа в естественной форме а)821,3•10^5 б)1453•10^0 в)0,987е...

gusaka

03.02.2021 00:26

Запишите число 1342,95 тремя различными в форме с плавающей запятой...

КсюшаГретт

03.02.2021 00:26

Птица пролетела 120 метров со скоростью 10м/с.найти время полёта птицы....

nakao85

07.07.2020 18:31

Сделать по информатике 4,3. 7 класс, заранее...

dinamur03

27.01.2020 14:10

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

yuliabler

08.05.2022 06:25

Разработайте на псевдокоде алгоритм (а если хочется и можется - реализующую его программу) вычисления суммы и произведения цифр трёхзначного натурального числа (будем считать, что...

KewaKewka

08.05.2022 06:25

1)что такое информация 2) назовите формы представления информации 3)что такое основные информационные процессы,виды информационных процессов 4)что такое мощность алфавита 5)перечислить...

вера546

15.05.2022 07:56

Напишите программу реализующую калькулятор на 4 арифметических действия.на языке паскаль...

Linka00128

11.07.2021 12:43

Составить блок схему алгоритма с вложенным циклом,кто знает?...

gulnar1964

14.03.2022 01:23

По введенному с клавиатуры номеру месяца определить, к какому времени года он относится и какие месяцы являются для данного предыдущим и последующим. составить программу в паскале....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку