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

очень К какому виду редакторов можно отнести OpenOffice, Microsoft Office Word?
2. К какому виду редакторов можно отнести Paint, Adobe Photoshop, Gimp?
3. Как называется отдельный элемент электронной таблицы, который можно редактировать?
4. Что называется прямым форматированием?
5. Какое расширение (тип файла) имеют текстовые документы?
6. какое расширение (тип файла) имеют электронные документы?
7. В чём преимущество Microsoft Excel, OpenOfficeCalc над обычным (ручным) счётом?
8. Назовите плюсы электронных документов над бумажными аналогами ( не меньше четырёх пунктов!)
9. Как расшифровывается аббревиатура ЭВМ?
Заранее

👇
Открыть все ответы
Ответ:
BroKeNxHeArT
BroKeNxHeArT
18.11.2021
PascalABC.NET (только под этим компилятором, в программе есть функции, которых нет в стандартном наборе) Если под TurboPascal или Free то будет выглядеть иначе

const     
s = 10;     
 var   
a : array of char;   
i,l : integer;   
r : real;    
begin 
SetLength (a,1); 
read (a[0]); 
i := 0;   
while a[i] <> ' ' do   
begin   
i := i +1;     
SetLength (a,i+1);   
read (a[i]);   
end;   
r := 0; 
l := i-1;    
for i := 0 to l do begin 
r := r + (ord(a[i]) - 48) * power (s,(l-i));   
end;    
 writeln (r);      
end.
4,5(92 оценок)
Ответ:
Ildessova
Ildessova
18.11.2021
Не уверен, что в 9 классе проходят массивы, уточни потом, переделаю, если что.

Program G;
Uses Crt;
Var NumS: Array [1..10] of byte;
    n: integer; count, i, k, equal, truth: byte;
Begin
 ClrScr;
 Truth:=0;
 Writeln('Введите число N (меньше или равное 9999).');
 Repeat
  Readln(N);
  If N>9999 then Writeln('Введено неверное число. Повторите ввод.');
 Until N<=9999; Count:=0;
 While N>0 do
  Begin
   Inc(Count);
   NumS[Count]:=N mod 10;
   N:=N div 10;
  End;
 For i:=1 to Count do
  Begin
   Equal:=0;
    For k:=i+1 to Count do
    If NumS[i]=NumS[k] then
     Inc(Equal);
   If Equal=2 then Truth:=1;
  End;
 If Truth=1 then Writeln('В числе совпадает три разряда.')
   Else Writeln('В числе совпадает менее/более трёх разрядов.');
 Readln;
End.
4,7(57 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ