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

Напишите программу, которая получает натуральные числа A и B (A

Показать ответ
Ответ:
оркп
оркп
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-бота