Спо информатике, : написать программу нахождения количества чисел кратных 3
Ответы
А)
алг А
нач
цел N = 10
целтаб a[1:N]
цел i, s
нц для i от 1 до N
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
s:=a[3]+a[5]
вывод "s = ", s, нс
кон
Б)
алг Б
нач
цел M = 10
целтаб a[1:M]
цел i, max
нц для i от 1 до M
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
max:=a[1]
нц для i от 2 до M
если a[i] > max то
max:=a[i]
все
кц
вывод "max = ",max,нс
кон
В)
алг В
нач
цел M = 10
целтаб a[1:M]
цел i, k
нц для i от 1 до M
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
k:=0
нц для i от 1 до M
если mod(a[i],6)=0 то
k:=k+1
все
кц
если k>0 то
вывод "k = ",k,нс
иначе
вывод "Нет чисел, кратных 6"
все
кон
Г)
алг Г
нач
цел N = 10
целтаб a[1:N]
цел i, p
нц для i от 1 до N
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
p:=1
нц для i от 1 до N
если mod(a[i],2)=0 то
p:=p*a[i]
все
кц
вывод "p = ",p,нс
кон
алг А
нач
цел N = 10
целтаб a[1:N]
цел i, s
нц для i от 1 до N
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
s:=a[3]+a[5]
вывод "s = ", s, нс
кон
Б)
алг Б
нач
цел M = 10
целтаб a[1:M]
цел i, max
нц для i от 1 до M
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
max:=a[1]
нц для i от 2 до M
если a[i] > max то
max:=a[i]
все
кц
вывод "max = ",max,нс
кон
В)
алг В
нач
цел M = 10
целтаб a[1:M]
цел i, k
нц для i от 1 до M
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
k:=0
нц для i от 1 до M
если mod(a[i],6)=0 то
k:=k+1
все
кц
если k>0 то
вывод "k = ",k,нс
иначе
вывод "Нет чисел, кратных 6"
все
кон
Г)
алг Г
нач
цел N = 10
целтаб a[1:N]
цел i, p
нц для i от 1 до N
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
p:=1
нц для i от 1 до N
если mod(a[i],2)=0 то
p:=p*a[i]
все
кц
вывод "p = ",p,нс
кон
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Все ! найти сумму отрицательных чисел в паскале
Автор: kate1610
Определить сумму второго, четвертого, шестого и т. д. элементов массива в java
Автор: Yelena Dilyara
Какую роль играет информатика (компьютеры) в судостроении?
Автор: Volodka
Определить i символа если в нём 4096 символов.
Автор: YeVgenii
алг А
нач
цел N = 10
целтаб a[1:N]
цел i, s
нц для i от 1 до N
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
s:=a[3]+a[5]
вывод "s = ", s, нс
кон
Б)
алг Б
нач
цел M = 10
целтаб a[1:M]
цел i, max
нц для i от 1 до M
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
max:=a[1]
нц для i от 2 до M
если a[i] > max то
max:=a[i]
все
кц
вывод "max = ",max,нс
кон
В)
алг В
нач
цел M = 10
целтаб a[1:M]
цел i, k
нц для i от 1 до M
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
k:=0
нц для i от 1 до M
если mod(a[i],6)=0 то
k:=k+1
все
кц
если k>0 то
вывод "k = ",k,нс
иначе
вывод "Нет чисел, кратных 6"
все
кон
Г)
алг Г
нач
цел N = 10
целтаб a[1:N]
цел i, p
нц для i от 1 до N
вывод "a[",i,"] = "
ввод a[i]
кц
вывод нс
p:=1
нц для i от 1 до N
если mod(a[i],2)=0 то
p:=p*a[i]
все
кц
вывод "p = ",p,нс
кон