В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
dcherniesheva
dcherniesheva
10.03.2021 21:59 •  Информатика

А) Достарың заңды тұрғыда дұрыс жасады ма? Неге?
ә) Мұнда қандай да бір құқықбұзушылық орын алды ма?
б) Интернеттегі жекеменшік деген ұғымды қалай түсіне
сіңдер? Оның иесі кім?
в) Плагиат неден туындайды: саналы әрекеттен бе әлде тү-
сініспеушіліктен бе?

Показать ответ
Ответ:
оркп
оркп
03.07.2022 06:33

Программа Pascal:

var ag,x,x1,s1,s2,sp:integer;

a1,a2:array[0..3] of integer;

begin

 

 while (a1[0]=a1[1]) or (a1[1]=a1[2]) or (a1[2]=a1[3]) or (a1[3]=a1[0]) or (a1[1]=a1[3]) or (a1[2]=a1[0]) do

 begin

 x:=random(8999)+1000;

 ag:=10000;

 for var i1:=0 to 3 do

   begin

   a1[i1]:= (x mod ag) div (ag div 10);

   ag:=ag div 10;

   end;

 end;

 

 while x<>x1 do

   begin

   x1:=0;

   while (x1<1000) or (9999<x1) do

     begin

     writeln; write('Введите 4ехзначное число = '); readln(x1);

     end;

   

   ag:=10000;

   for var i2:=0 to 3 do

     begin

     a2[i2]:= (x1 mod ag) div (ag div 10);

     ag:=ag div 10;

     end;

   

   s1:=0;

   if (a2[0]=a1[0]) then s1:=s1+1;

   if (a2[1]=a1[1]) then s1:=s1+1;

   if (a2[2]=a1[2]) then s1:=s1+1;

   if (a2[3]=a1[3]) then s1:=s1+1;

   writeln('Число быков = ',s1);

   

   s2:=0;

   if (a2[0]=a1[0]) or (a2[0]=a1[1]) or (a2[0]=a1[2]) or (a2[0]=a1[3]) then s2:=s2+1;

   if (a2[1]<>a2[0]) or (a2[1]<>a2[2]) or (a2[1]<>a2[3]) then

     if (a2[1]=a1[0]) or (a2[1]=a1[1]) or (a2[1]=a1[2]) or (a2[1]=a1[3]) then s2:=s2+1;

   if (a2[2]<>a2[0]) or (a2[2]<>a2[1]) or (a2[2]<>a2[3]) then

     if (a2[2]=a1[0]) or (a2[2]=a1[1]) or (a2[2]=a1[2]) or (a2[2]=a1[3]) then s2:=s2+1;

   if (a2[3]<>a2[0]) or (a2[3]<>a2[1]) or (a2[3]<>a2[2]) then

     if (a2[3]=a1[0]) or (a2[3]=a1[1]) or (a2[3]=a1[2]) or (a2[3]=a1[3]) then s2:=s2+1;

   writeln('Число коров = ',s2-s1);

   

   sp:=sp+1;

   writeln('Попытка ',sp);

   end;

 writeln; write('ПОЗДРАВЛЯЮ, ВЫ УГАДАЛИ ЧИСЛО!');

 

end.

0,0(0 оценок)
Ответ:
katyunyagolubmailru
katyunyagolubmailru
10.02.2021 10:21

1. Программи́рование — процесс создания компьютерных программ.

2.Excel – это широко распространенная компьютерная программа. Необходима она для проведения расчетов, анализа данных, прогнозирования, составление графиков погашения, таблиц и диаграмм, вычисления простых и сложных функций. Является составляющей пакета Microsoft Office.

3.Информа́ция — сведения независимо от формы их представления. Несмотря на широкую распространённость, понятие информации остаётся одним из самых дискуссионных в науке, а термин может иметь различные значения в разных отраслях человеческой деятельности.

4. графический, в котором текстовая информация кодируется путем использования специальных рисунков или знаков; символьный, в котором тексты кодируются с использованием символов того же алфавита, на котором написан исходник; числовой, в котором текстовая информация кодируется с чисел.

5.Различают символьное и смысловое кодирование. При символьном кодировании каждый знак алфавита открытого текста заменяется соответствующим символом. Примером символьного кодирования служит азбука Морзе, а также методы шифрования заменой и перестановкой.

6. В статье мы кратко перечислим основные виды системного программного обеспечения для компьютеров и дадим каждому типу характеристику.

...

По функции

• Машинно-логическое. ...

• Интерфейсное. ...

• Аппаратно-механическое. ...

• Информационно-командное. ...

• Прикладное.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота