М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
KatinaDobet2006
KatinaDobet2006
18.04.2020 13:14 •  Информатика

Информатика, 10 ! ! дан некоторый текст. составить программу, позволяющую разделить все буквы и символы данного текста двоеточиями. данно: компьютер результат: к: о: м: п: ь: ю: т: е: р

👇
Ответ:
valentingordien
valentingordien
18.04.2020
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString('->').Println(':');
end.

Пример
-> Компьютер
К:о:м:п:ь:ю:т:е:р
4,5(95 оценок)
Открыть все ответы
Ответ:
Элилия
Элилия
18.04.2020

Відповідь:

Пояснення:

1) буквенного имени столбца и номера строки

2) СРЗНАЧ

3) $C$20

4) 65536

5) #ЧИСЛО!

6) Рабочая книга

7) A21:C24

8) B5:E5 - это 4 ячейки , формула СРЗНАЧ выводит среднее значение этих четырех ячеек , исходя из этого сумма (СУММ) этих ячеек 100*4 = 400. Плюс к этому додается ещё одна ячейка F5 значение которой равно 10 , и того =СУММ(B5:F5) равна 410

9) 2, 4

10) C8:C64

11) бухгалтерский и банковский учет

12) текст, число или формула

13) =916+54

14) Формула будет иметь вид:

=$D$2+D1

15) D4

16) 16

17) 255

4,6(75 оценок)
Ответ:
jeka3636327867
jeka3636327867
18.04.2020

Program Min_Max;

uses crt;

var a:array[1..3] of integer;

i,min,max:integer;

begin

 Textcolor (12);

  For i:=1 to 3 do

    Begin

      A[i]:=random(100);

      Write(A[i]:4);

    End;

 Writeln;

 min:=a[1];

 for i:=1 to 3 do  

  begin  

     if a[i]>max then  

      max:=a[i];

     if a[i]<min then  

      min:=a[i];

 end;

 write('                                   ');

 for i:=1 to 3 do  

  begin  

     if a[i]=max then

      Begin

       textcolor(12);

       write(max:3);

      End;

     if a[i]=min then  

        Begin

         textcolor(9);

         write(min:3);

        End;

     if (a[i]<>min) and (A[i]<>max) then

          Begin

           textcolor(14);

           write(A[i]:3);

          End;

      End;

readln;

end.

Объяснение:

4,4(62 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ