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

5. установіть  відповідність  між  науковими  відкриттями  та  прізвищами  вчених, яким вони належать. а) перший  механічний  пристрій,  що  виконував  чотири арифметичні дії, сконструював б) склад і призначення частин  (функціональних  елементів)  автоматичного  обчислювального  пристрою  вперше сформулював в) принципи,  згідно  з  якими  функціонує  більшість сучасних комп’ютерів, вперше описав г) першу  серійну  обчислювальну  машину, що виконувала дві арифметичні дії,  створив д) перші  програми  для  різницевої  автоматичної машини створив перший у світі програміст 1) блез паскаль 2) джон фон нейман 3) чарльз беббідж 4) ада лавлейс 5) готфрід  вільгельм лейбніц 6. установіть  відповідність  між  назвами  властивостей  алгоритмів  та  їхніми  описами. а) визначеність або детермінованість б) скінченність в) дискретність г) результативність д) масовість 1) означає,  що  виконання  алгоритму  зводиться  до  виконання  окремих  дій  у  певній  послідовності;   причому  кожна  команда  алгоритму  повинна  виконуватися  за  скінченний інтервал часу 2) означає,  що  для  заданого  набору  значень  початкових (вхідних)  даних  алгоритм  однозначно  визначає  порядок  дій виконавця та результат цих дій 3) означає,  що  алгоритм  може бути  застосований до  цілого  класу  однотипних  ,  для  яких  спільними  є  умова,  хід  розв’язування  та  які  відрізняються  тільки  початко вими даними 4) означає,  що  виконання  алгоритму  завершиться  після скінченної кількості кроків і за скінченний  час при будь-яких допустимих  значеннях  початкових  даних 5) означає,  що  після  завершення  виконання  алгоритму  обов’язково  одержуються  результати,  які  відпові поставленій меті 7. установіть  відповідність  між  типами  програмного  забезпечення  комп’ютера  та  назвами програм. а) програми для роботи з текстовими документами б) програми для перегляду веб-документів в) програми спеціального призначення г) інструментальні програми д) програми для роботи з графікою 1) paint 2) 1c-бухгалтерія 3) ms word 4) internet explorer 5) codeblocks 8. установіть  відповідність  між  означеннями  властивостей  алгоритмів  та  їхніми  назвами. а) після  завершення  виконання  алгоритму  обов’язково  одержуються  результати,  які  відпові  поставленій  меті б) алгоритм  може  бути  застосований  до  цілого  класу  однотипних  ,  для  яких  спільними  є  умова,  хід  розв’язування  та  які  відрізняються  тільки  початковими даними в) виконання  алгоритму  завершиться  після  скінченної  кількості  кроків  і  за  скінченний  час  при  будь-яких  допустимих  значеннях  початкових  даних г) для  заданого  набору  значень  початкових  (вхідних)  даних  алгоритм  однозначно  визначає  порядок  дій  виконавця  та  результат  цих  дій д) виконання  алгоритму  зводиться  до  виконання  окремих  дій  у  певній  послідовності,  причому  кожна  команда  алгоритму  повинна  виконуватися  за  скінченний  інтервал  часу 1) масовість 2) скінченність 3) визначеність  або детермінованість 4) результативність 5) дискретність 9. установіть відповідність між описом принтерів та їхніми назвами. a) принтери,  принцип  дії  яких  полягає  в  створенні  зображення  за    дуже  малих  крапель  спеціальних  чорнил,  що виштовхуються  з  друкуючої  головки  на  поверхню  паперу  або  плівки,  називаються б) монохромні  принтери,  що  використовуються  для  друку  етикеток,  ярликів,  чеків,  штрих-кодів  на  складах  або  в  магазинах,  білетів  для  транспортних  компаній,  чеків  у  переносних  касових  апаратах  тощо,  називаються в) принтери,  у  яких  використовується  принцип  дії  на  основі  електризації  малих  частинок  порошкоподібної  фарби  (тонера),  за    якої  і  створюється  зображення  на  поверхні  паперу  або  плівки,  називаються г) принтери,  у  яких  низька  якість  друку,  відносно  мала  швидкість друку,  не  можна  якісно  передавати  відтінки  кольорів,  високий рівень  шуму,  називаються д) принтери,  які  використовуються  для  друку  креслень,  ескізів,  плакатів  та  інших зображень  великих  розмірів,  називаються 1) лазерні 2) струменеві 3) термічні 4) плотери 5) матричні 10. встановіть відповідність між розширенням файлу і його типом. а) .txt б) .exe в) .jpg г) .mp3 д) .avi 1) графічний 2) текстовий 3) музичний 4) виконуваний 5) відео 11. установіть відповідність між типами принтерів та їхнім описом. а) пристрої введення даних б) пристрої внутрішньої пам’яті в) пристрої виведення даних г) пристрої зовнішньої пам’яті д) мультимедійне обладнання 1) оперативна, постійна, напівпостійна пам’ять 2) клавіатура, миша, маніпулятори, сканер 3) гнучкі та жорсткі магнітні диски, сd- та dvd-диски 4) звукові та відеокарти, цифрові фото- та відеокамери 5) принтер, гучномовці, навушники, плотер

Показать ответ
Ответ:
anisimovamargar1
anisimovamargar1
13.04.2021 03:27
// PascalABC.NET 3.0, сборка 1088
const
  nDay:array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);
type
  Date=record
    Day,Month,Year:integer
  end;
 
function DOW(Dat:Date):integer;
// день недели по дате. 0-Вс. 1-Пн, 7-Сб
var
  a,y,m:integer;
begin
  With Dat do begin
    a:=(14 - month) div 12;
    y:=Year-a;
    m:=month+12*a-2;
    DOW:=(7000+(day+y+y div 4-y div 100+y div 400+(31*m) div 12)) mod 7
    end
end;

procedure DMY2Date(d,m,y:integer; var data:Date);
// Преобразует к дате заданные день, месяц и год
begin
  data.Day:=d; data.Month:=m; data.Year:=y
end;

procedure LastDays(month,year:integer; var Wd,Fr:Date);
// даты последней среды (Wd) и пятницы (Fr) для месяца в году }
var
  LastDay:Date;
  n:integer;
begin
  n:=nDay[month];
  if (month=2) and (year mod 4 = 0) then Inc(n);
  DMY2Date(n,month,year,LastDay);
  n:=DOW(LastDay); // номер последнего дня недели
  Wd.Month:=month; Wd.Year:=year;
  if n<3 then Wd.Day:=LastDay.Day-(n+4)
  else
    if n=3 then Wd.Day:=LastDay.Day
    else Wd.Day:=LastDay.Day+3-n;
  Fr.Month:=month; Fr.Year:=year;
  if n<5 then Fr.Day:=LastDay.Day-(n+2)
  else
    if n=3 then Fr.Day:=LastDay.Day
    else Fr.Day:=LastDay.Day-1
end;

var
  Wd,Fr:Date;
  ff,mf:Text;
  m:integer;
begin
  Assign(ff,'father.txt'); Rewrite(ff);
  Assign(mf,'mother.txt'); Rewrite(mf);
  // Сентябрь-декабрь 2015 года
  for m:=9 to 12 do begin
    LastDays(m,2015,Wd,Fr);
    if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2015 - 1 класс')
    else Writeln(ff,Wd.Day,'.',m,'.2015 - 1 класс');
    if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2015 - 5 класс')
    else Writeln(ff,Fr.Day,'.',m,'.2015 - 5 класс')
  end;
  // Январь - май 2016 года
  for m:=1 to 5 do begin
    LastDays(m,2016,Wd,Fr);
    if Odd(Wd.Day) then Writeln(mf,Wd.Day,'.',m,'.2016 - 1 класс')
    else Writeln(ff,Wd.Day,'.',m,'.2016 - 1 класс');
    if Odd(Fr.Day) then Writeln(mf,Fr.Day,'.',m,'.2016 - 5 класс')
    else Writeln(ff,Fr.Day,'.',m,'.2016 - 5 класс')
  end;
  Close(ff); Close(mf)
end.

Содержимое выходных файлов:
father.txt
30.9.2015 - 1 класс
28.10.2015 - 1 класс
30.10.2015 - 5 класс
30.12.2015 - 1 класс
24.2.2016 - 1 класс
26.2.2016 - 5 класс
30.3.2016 - 1 класс

mother.txt
25.9.2015 - 5 класс
25.11.2015 - 1 класс
27.11.2015 - 5 класс
25.12.2015 - 5 класс
27.1.2016 - 1 класс
29.1.2016 - 5 класс
25.3.2016 - 5 класс
27.4.2016 - 1 класс
29.4.2016 - 5 класс
25.5.2016 - 1 класс
27.5.2016 - 5 класс
0,0(0 оценок)
Ответ:
tereshkova11
tereshkova11
08.04.2021 13:29
Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота