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

Боже, .
расцелую.
основы алгоритмизации

Показать ответ
Ответ:
lizo4ka004
lizo4ka004
10.09.2020 10:27
Никто не знает точно, где и когда возникла письменность. мы можем только предполагать, как она развивалась с древнейших времен. человек начал рисовать картинки, повествую­щие об охоте и войне, о жизни племен. картинки использовались также для передачи сообщений. изображение солнца означало день. две отметки рядом с солнцем обозначали два дня. такие значки называются пиктограммами. с развитием цивилизации этот метод письма был ускорен путем картинок. египтя­не прибегали к волнистой линии для обозначения воды. китайцы рисовали ухо между двумя дверь­ми, что имело значение «слушать». такие знаки назывались идеографами или идеограммами. древние египтяне пользовались системой, ко­торую мы называем иероглифами. сначала это была полностью идеографическая система. но в ходе веков египтяне создали и фонетическую сис­тему, то есть такие знаки, которые означали зву­ки речи, а не только изображали предметы или явления. с развитием цивилизации возникла потреб­ность в большом количестве знаков. так возник метод написания слов в соответствии с их звуча­нием. знаки, звуки, называются фо­немами. слова при этом могут делиться на слоги. следующей стадией развития письменности стало создание алфавита. древние египтяне и жи­тели вавилона знали, как писать алфавитным способом. по их методу были созданы греческий и латинский алфавиты, которыми широко пользу­ются в мире, за исключением азиатских стран.
0,0(0 оценок)
Ответ:
katysha087
katysha087
17.02.2021 22:16

program raf105;

var

 a,b: array[1..7] of integer;

 i,x,win: integer;

begin

 writeln('Добро в игру "Лотерея"!');

 write('Введите семизначное число: ');

 readln(x);

 writeln;

 a[1]:= x div 1000000;

 a[2]:= (x div 100000) mod 10;

 a[3]:= (x div 10000) mod 10;

 a[4]:= (x div 1000) mod 10;

 a[5]:= (x div 100) mod 10;

 a[6]:= (x div 10) mod 10;

 a[7]:= x mod 10;

 x:= random(1000000,9999999);

 b[1]:= x div 1000000;

 b[2]:= (x div 100000) mod 10;

 b[3]:= (x div 10000) mod 10;

 b[4]:= (x div 1000) mod 10;

 b[5]:= (x div 100) mod 10;

 b[6]:= (x div 10) mod 10;

 for i:=1 to 7 do

   if a[i] = b[i]

     then if win <> 0

       then win:= win*10

       else win:= 1;

 writeln('Ваш выигрыш ',win,' руб.');

 write('Введённые числа:       ');

 for i:=1 to 7 do

   write(a[i],' ');

 writeln;

 write('Сгенерированные числа: ');

 for i:=1 to 7 do

   write(b[i],' ');

end.

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