ОЧЕНЬ по информатике Написать программу каторая выводит таблицу значений функции у²+5
Диапазон изменения аргумента от-4до 4 шаг приращения аргумента 1
на экране должно быть выведено
у(-4)=21
у(-3)=14​

Часть А

В заданиях части А выбрать только один ответ.

А1. Текстовый редактор – это приложение

1) для создания мультимедийных документов;

2) для создания, редактирования и форматирования текстовой информации;

3) для обработки изображений в процессе создания доклада.

А2. Текстовая информация-это

1) информация, представленная в форме письменного текста;

2) рисунки схемы, графики;

3) полный набор букв алфавита.

А3. Какие операции выполняют при редактировании текста?

1) Совершают операции по оформлению текста текст, исправляют ошибки, вносят изменения.

3) Выводят текст на печать.

А4. Какие из перечисленных ниже расширений соответствуют текстовому файлу?

1) exe, com, bat;

2) gif, bmp, jpg;

3) txt, doc, rtf.

А5. Какую программу нужно выбирать для обработки текстовой информации?

1) MS Excel;

2) MS Word;

3) Paint.

А6. При задании параметров страницы в текстовом редакторе устанавливаются:

1) гарнитура, начертание, размер;

2) поля, ориентация;

3) отступ, интервал.

А7. В каком из перечисленных ниже предложений правильно расставлены пробелы между словами и знаками препинания?

1) Слово не воробей , вылетит— не поймаешь!

2) Слово не воробей, вылетит — не поймаешь!

3) Слово не воробей, вылетит-не поймаешь !

4) Слово не воробей , вылетит —не поймаешь !

А8. Что такое абзац?

1) Абзац — это фрагмент текста, процесс ввода которого закончился нажатием на клавишу Esc.

2) Абзац — это фрагмент текста, процесс ввода которого закончился нажатием на клавишу Space.

3) Абзац — это фрагмент текста, процесс ввода которого закончился нажатием на клавишу Enter.

А9. К группе свойств символов можно отнести:

1) шрифт, размер шрифта, начертание и цвет;

2) выравнивание, размер шрифта, междустрочный интервал, цвет;

3) выравнивание, отступ первой строки, междустрочный интервал, отступ слева и справа, интервалы перед и после.

А10. Объем текстового файла вычисляется по формуле

1) I = K * i

2) N=2i

3) N=2*i

4) I=N+K

Так?

// 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 класс