«Показатель удовлетворительный», если от 72 до 84 — «По..
затель хороший», если от 85 до 100 – «Показатель отлично.
3. В ячейке С2 найдите вторую цифру самого длинного из
сел, находящихся в ячейках А1 и B1.
4. Отразите в блоке ячеек В2:B9 квадратный корень неотрица.
тельных чисел, в блоке ячеек D2:D9 — Квадраты отрицатель.
ных чисел, в блоке ячеек А2:A9 - информацию об отрица.
тельности или неотрицательности.
5. Вычислите функцию
1)
е
(х+ 5, если х75, при значениях х-11; 1; 3; 5; 7, 9.
5 – 3х, если х<5
(0, если х<0,
6. Вычислите функцию у = 5 + x, если 0 < x < 1, при значе-
(5 – 3х, если х> 1
нияx x - 23; -1; 0; 2; 4; 7; 20; 21.
7. Даны числа x, y, z. Составьте таблицу, позволяющую определить,
существует или не существует треугольник со сторонами x, y, 7
(ответ: «существует» или «не существует»).​

Вся информация, которую обрабатывает компьютер должна быть представлена двоичным кодом с двух цифр 0 и 1. Эти два символа принято называть двоичными цифрами или битами. С двух цифр 0 и 1 можно закодировать любое сообщение. Это явилось причиной того, что в компьютере обязательно должно быть организованно два важных процесса: кодирование и декодирование.Кодирование – преобразование входной информации в форму, воспринимаемую компьютером, т.е. двоичный код.Декодирование – преобразование данных из двоичного кода в форму, понятную человеку.С точки зрения технической реализации использование двоичной системы счисления для кодирования информации оказалось намного более простым, чем применение других

1.

program raf105;

var a,b,c:integer;

begin

write('Введите 3 числа: ');

readln(a,b,c);

if (a<b) and (a<c)

 then writeln('Произведение 2 наибольших чисел: ',b*c);

if (b<a) and (b<c)

 then writeln('Произведение 2 наибольших чисел: ',a*c);

if (c<b) and (c<a)

 then writeln('Произведение 2 наибольших чисел: ',b*a);

end.

2.а)

program raf105;

var a,i,b:integer;

begin

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

readln(a);

for i:=1 to a do

 if ((a mod i)=0) and ((i mod 2)<>0)

   then b:= b+i;

writeln('Сумма нечётных делителей введённого числа: ',b);

end.

б)

program raf105;

var a,a2,i,j,b:integer;

begin

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

readln(a);

write('Введите большее число: ');

readln(a2);

for j:=a to a2 do

begin

 for i:=1 to j do

   if ((j mod i)=0) and ((i mod 2)<>0)

     then b:= b+i;

writeln('Сумма нечётных делителей числа ',j,' равна: ',b);

b:= 0;

end;

end.

Язык программирования PascalABC