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

ИНФОРМАТИКА Ниже приведены ситуации.Укажите какое ПО и программа необходимы людям для работы


ИНФОРМАТИКА Ниже приведены ситуации.Укажите какое ПО и программа необходимы людям для работы

👇
Ответ:
шунгит
шунгит
20.12.2020

1) 1-2

2) 2-3

3) 3-1

Объяснение:

ответ 1-2 объясняю как отвечать: С первой левой верхней точки проводи линию к правой второй точке и так со всеми.

4,8(83 оценок)
Открыть все ответы
Ответ:
гсооагвгв
гсооагвгв
20.12.2020

#include <iostream>

using namespace std;

int main() {

setlocale(LC_ALL, "Russian");

   int n, a, b, c, d, e, f, k=0;

   cin >> n;

   a=n%10;

   b=n%100/10;

   c=n%1000/100;

   d=n/1000;

   e=n-d*1000-b*10+d*10+b*1000;

   cout<<e<<endl;

   if (a%2==0)++k; if (b%2==0)++k; if (c%2==0)++k; if (d%2==0)++k;

   f=a; if (b<f) f=b; if (c<f) f=c; if (d<f) f=d;

   if (b>a) a=b; if (c>a) a=c; if (d>a) a=d;

   cout<<"Наименьшая цифра числа "<<f<<endl<<"Наибольшая цифра числа "<<a<<endl;

   if (n%2==0)cout<<"Число делится на 2"<<endl;

   else cout<<"Число не делится на 2"<<endl;

   if (n%7==0)cout<<"Число делится на 7"<<endl;

   else cout<<"Число не делится на 7"<<endl;

   if (n%123==0)cout<<"Число делится на 123"<<endl;

   else cout<<"Число не делится на 123"<<endl;

   cout<<"Число четных цифр в числе равно "<<k<<endl;

   return 0;

}

4,8(58 оценок)
Ответ:

Вот моя прога, 2 года назад писал и не потерял)) Тут по нажатию на форму рисуется паутина как бы центр там куда ты нажала. Вообщем думаю разберешься, если что - пиши.

Public Class Form1
Dim x, y As Integer
Sub pau(ByVal gr As Graphics, ByVal x As Integer, ByVal y As Integer)
Dim i, w, h As Integer
gr.Clear(Color.White)
w = ClientRectangle.Width / 2
h = ClientRectangle.Height / 2
For i = 0 To 2
gr.DrawLine(Pens.BurlyWood, New Point(w * i, 0), New Point(x, y))
gr.DrawLine(Pens.BurlyWood, New Point(w * i, h * 2), New Point(x, y))

Next
gr.DrawLine(Pens.BurlyWood, New Point(0, h), New Point(x, y))
gr.DrawLine(Pens.BurlyWood, New Point(w * 2, h), New Point(x, y))
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
Dim gr As Graphics = Me.CreateGraphics

x = e.X
y = e.Y
pau(gr, x, y)
End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim gr As Graphics = e.Graphics
pau(gr, x, y)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 100
y = 230
End Sub
End Class

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