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

ОЧЕНЬ Для каждой задачи составить ТАБЛИЦУ-решение.

Задание №1 Работники банка Сидоров, Владимирова и Фёдоров приобрели себе автомобили Peugeot, BMW и Toyota. Владимирова рассказала хозяину Toyota, что с детства мечтала о немецкой машине. Но её мечта не сбылась. Сидоров мечтал о французской машине, но его мечта тоже не сбылась. Только у Фёдорова мечта сбылась о немецкой машине.

Задание №2 В финале турнира Российской Армии по шашкам встретились представители шести воинских званий: майор, капитан, лейтенант, полковник, сержант и ефрейтор, причём разных специальностей: лётчик, танкист, артиллерист, миномётчик, сапёр и связист. Определи специальность и звание каждого из игроков по следующим данным:

1) в первом туре лейтенант выиграл у лётчика, майор — у танкиста, а сержант — у миномётчика;

2) во втором туре капитан выиграл у танкиста;

3) в третьем и четвёртом турах миномётчик из-за болезни не участвовал в турнире, поэтому свободными от игры оказались капитан и ефрейтор;

4) в четвёртом туре майор выиграл у связиста;

5) победителями турнира оказались лейтенант и майор, а хуже всех выступил сапёр.

Показать ответ
Ответ:
GolduckChannel
GolduckChannel
14.08.2022 09:19
В программе генерируются только убывающие последовательности (a[i]:=-i+random()+20;). Можно при желании массив вводить с клавиатуры.
const n=15;
var a:array[1..n] of real;
i:integer; b:boolean;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=-i+random()+20;
 write(a[i]:5:2,' ');
 end;
writeln;
b:=true;
for i:=1 to n-1 do
 if a[i+1]>=a[i] then b:=false;
if b
 then 
  begin
  writeln('Последовательность убывающая');
  writeln('p = ',a[n]*a[n div 2+1]:5:2);
  end
 else writeln('Последовательность не убывающая')
end.

Пример:
19.02 18.28 17.91 16.67 15.03 14.68 13.10 12.86 11.91 10.19  9.66  8.35  7.37  6.55  5.20 
Последовательность убывающая
p = 66.86
0,0(0 оценок)
Ответ:
зулик3
зулик3
20.01.2020 15:28
1. Файл – это:
4) программа или данные на диске, имеющие имя.
 
2. Имя файлу даёт: 
3) программа при его создании
4) пользователь (если нужен один ответ, то выбирать этот. Вообще имя и расширение может выбрать пользователь, а может сгенерировать программа. Если говорить об офисных пакетах, имя выбирает пользователь, расширение по умолчанию выбрано программой)
 
3. Имя файла состоит из двух частей: 
2) имени и расширения (разделенных точкой)
 
4. Расширение  файлу присваивает: 
1) программа при его создании (если нужен один ответ, то выбирать этот.)
3) пользователь
 
5. Файловая система – это: 
4) вложенная структура папок и файлов.
 
6. Папка – это:
1) средство упорядочения тематически связанных файлов; (папка — не именованная область на диске, файлы в папке могут быть физически записаны где угодно)
 
7. В папке могут храниться:                      
2) файлы и папки;
 
8. Какие имена файлов составлены верно:
3) пример.doc; (имя.расширение)
 
9. На тип файла указывает:
1) расширение файла; 
 
10. Укажите тип файла- wav, mp3, midi:
4) звуковой
 
11. Укажите тип файла – txt, doc, pdf
1) текстовый; (называть doc и pdf текстовыми файлами не совсем корректно. Скажем, в них можно вставлять видео — странные "текстовые" файлы. txt — 100% текстовый файл)
 
12. Укажите тип файла – bmp, gif, jpg
3) графический; 
 
13. Какой путь из корневого каталога указан верно:
1) С:\ Обучающие программы \ Поле чудес \ pole.exe; (в системе windows всё начинается с имени диска: буква:, затем список папок и имя файла, всё разделено символом \)
 
14. Задано полное имя файла С:\DOC\PROBA.TXT. Каково имя каталога, в котором находится этот файл?
3) DOC; (каталог DOC находится на диске C и содержит файл PROBA.TXT)
 
15. Укажите тип файла – avi, mpeg, mp4
4) видео.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота