Вследующих примерах укажите информационный носитель и форму представления информации: а) табличка с номером дома б) почтовая открытка в) билет за поезд г) газета д) диск со сборником мультфильмов

А) носитель - табличка, форма информации - числовая или символьная
б) носитель - открытка, форма информации - смешанная, т.к там будут и рисунок, и текст
в) носитель - билет. форма - смешанная, т.к. там будут и текст, и числа
г) носитель - газета, форма - смешанная, т.к там будут и текст, и рисунки, и числа
д) носитель - диск, форма - видеоинформация

Функции Excel:

1. КОРЕНЬ (число) - получаем значение квадратного корня (число>0)

=КОРЕНЬ(2,25)   →   1,5

2. НОД (число1; число2) - получаем наибольший общий делитель (наибольшее целое число, на которое делятся число1 и число2 без остатка) двух (можно нескольких) целых чисел  (число1>0,  число2>0)

=НОД(45; 12)   →   3

3. НОК (число1; число2) - получаем наименьшее общее кратное (наименьшее целое число, которое делится на число1 и число2 без остатка) двух (можно нескольких) целых чисел  (число1>0,  число2>0)

=НОК(12; 5)   →   60

4. ОКРУГЛ (число; количество разрядов) - получаем число округлённое до указанного количества разрядов (количество разрядов = 0 - округляется до ближайшего целого; количество разрядов > 0 - округляется до указанного количества дробных разрядов - десятых, сотых и т.д.; количество разрядов < 0 - округляется до указанного количества целых разрядов - десятков, сотен и т.д.)

=ОКРУГЛ(1,573; 0)   →   2

=ОКРУГЛ(1,573; 2)   →   1,57

=ОКРУГЛ(15,73; )   →   20

5. ОСТАТ (число; делитель) - получаем остаток от деления числа на делитель, полученное число имеет тот же знак, что и делитель (делитель ≠ 0)

=ОСТАТ(7; 5)   →   2

=ОСТАТ(5; 7)   →   5

=ОСТАТ(7; 7)   →   0

6. РИМСКОЕ (число) - получаем из арабского числа римское в текстовом формате (число>0)

=РИМСКОЕ(2020)   →   MMXX

Объяснение:

Вместо число можно указывать ссылку на ячейку

Вариант 1
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   for i:=1 to length(str) do begin
     if (str[i]='А')or (str[i]='а') then a:=a+1;
     if (str[i]='Б')or (str[i]='б') then B:=b+1;
   end;
   if (A+B)=0 then write('нет таких букв') else write ('A= ',A,' Б= ',b);
end.

вариант 3
var  str:string;
  A,B,i:integer;
 begin
   write('введите ваш текст');
   readln(str);
   i:=1;
   while i<=length(str) do begin
    if (str[i]='А')or (str[i]='а') then delete(str,i,1);
    i:=i+1;
    end;
   write(str);
      end.