М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sadgirl22
sadgirl22
09.04.2021 15:04 •  Информатика

Рассмотри рисунок и допиши команды алгоритма заполни карточку со словами-актерами

👇
Ответ:
tikmehr
tikmehr
09.04.2021
1,2,3,4 ,5)
1. Начало
2. ПОВТОРЯЙ___2___РАЗА. 
3. ПОВТОРЯЙ ДЛЯ ФИГУР (_1,2_,3_( кружок и ромбик и треугольник ) )
4. Нарисуй клетку 
5. Нарисуй в клетке ФИГУРУ 
6. ПОВТОРЯЙ___3 РАЗА
7. Впиши самую верхнюю пустую фигуру4 
8. Впиши в следующую пустую фигуру 5
9. Конец
4,6(54 оценок)
Открыть все ответы
Ответ:
05багира
05багира
09.04.2021
Sub Calculate()
Dim coll As Collection
Dim i As Integer
Dim sum As Double
Dim negative As Integer
Dim composition As Integer
negative = 0
composition = 1
Set coll = New Collection
sum = 0
n = CInt(InputBox("Введите количество чисел", "Ввод", "", 2000, 2000))
For i = 1 To n
elmnt = CInt(InputBox(i & " число", "Ввод", "", 2000, 2000))
coll.Add elmnt
sum = sum + elmnt
Next i

For i = 1 To coll.Count
If (coll.Item(i) < 0) Then
negative = negative + 1
End If
If (coll.Item(i) Mod 2 = 1) Then
composition = composition * coll.Item(i)
End If
Next i
MsgBox "Количество отрицательных = " & negative & vbCrLf & "Произведение нечетных = " & composition & vbCrLf, vbOKOnly, "Результаты"
End Sub
4,4(46 оценок)
Ответ:
mrflotov
mrflotov
09.04.2021
Язык программирования какой?
Ладно, напишу словами, надеюсь вы код оформите.
пользователь вводит число, если оно делится без остачи на 2 - выводим, что оно чётное, если нет, то выводим что оно не чётное.
Функция деления по модулю на С-подобных языках "%", на других "mod".
Примеры:
С++
#include <iostream>
using namespace std;

int main()
{
     int n;
     cin >> n;
     if (n%2==0) cout << "This number is even";
     else cout << "It is not even number";
     cin.get();
     cin.get();
     return 0;
}

Pascal

program example;

   var n : integer;

begin

   readln(n);

   if n mod 2 = 0 then write('Number is even') else write ('It is not even number');

   realdn

end.

4,7(84 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ