4 года назад

Найти количество четных чисел от 1 до 500, кратных 9. В VPA Microsoft Excel.

1 ответ:

ДИНЧИК4 года назад

0 0

Public Sub mod()
Dim i As Integer
Dim count As Integer
For i = 1 To 500
If (i Mod 9 = 0) Then
count = count + 1
End If
Next i
MsgBox (count)
End Sub

Читайте также

Написать программу, которая выводит на экран все числа, которые нацело делятся на 3. диапозон от 100 до 1000. язык python

MafLup [252]

Ответ:

for i in range(100, 1001):

if i % 3 == 0:

print(i)

Объяснение:

Либо в списке:

numbers = []

for i in range(100, 1001):

if i % 3 == 0:

numbers.append(i)

print(numbers)

0 0

4 года назад

На рисунке приведена весовая матрица графа, в которой веса обозначают расстояния между соседними пунктами. Определите длину марш

Аrmida [7]

A-B=5
B-D=5
D-E=3
В сумме=13

0 0

4 года назад

Статья, набранная на компьютере, содержит 8 страниц, на каждой стра¬ни¬це 40 строк, в каждой строке 64 символа. В одном из предс

Алёна_13

8*40*64*16=327680 бит

0 0

4 года назад

ПОЖАЛУЙСТА ПОМОГИТЕ. Дан целочисленный массив В[1..5, 1..5]. Напечатать его главную и побочную диагонали. Паскаль

Виктор Витальевич Б

===== PascalABC.NET =====

begin

var b := MatrRandom(5, 5, -99, 99);

b.Println(4);

var n := b.RowCount;

Print('Главная:');

for var i := 0 to n - 1 do

Print(b[i,i]);

Writeln;

Print('Побочная:');

for var i := 0 to n - 1 do

Print(b[i, n - i - 1]);

end.

0 0

4 года назад

По заданной таблице истинности получите сднф логической функции, упростите ее

Алена Сергеевна П...

Рассматриваем только те строки таблицы истинности, где F =1

x y z F
0 0 0 1   ¬x*¬y*¬z
0 0 1 1   ¬x*¬y*z
0 1 0 1 ¬x*y*¬z
1 0 1 1 x*¬y*z
1 1 0 1 x*y*¬z
-------------------------------------------
  ¬x*¬y*¬z + ¬x*¬y*z + ¬x*y*¬z + x*¬y*z+x*y*¬z=
=¬x*¬y*(¬z+z) +y¬z*(¬x+x) +x*¬y*z=
=¬x*¬y+y*¬z+x*¬y*z=
=¬y*(¬x+x*z)+y*¬z=
=¬y*(¬x+z) +y*¬z=
=¬y*¬x+¬y*z+y*¬z=
=¬y*¬x+y⊕z
  F =¬x*¬y+y*¬z+¬y*z или F=¬x*¬y+y⊕z
-----------------------------------------
проверка
x y z ¬x*¬y y*¬z   ¬y*z F
0 0 0 1 0 0 1
0 0 1 1 0 1 1
0 1 0 0 1 0 1
0 1 1 0 0 0 0
1 0 0    0 0 0    0
1 0 1 0 0 1 1
1 1 0    0 1 0 1
1 1 1    0 0 0 0
(полное совпадение значений F cо значениями F в исходной таблице)

0 0

4 года назад