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

Создать на Lazarus программу вычисления суммы квадратных кореней целых чисел от 0 до 50ти

👇
Открыть все ответы
Ответ:
sviridovakatya8
sviridovakatya8
02.11.2022

Один или несколько компонентов программы Avast Antivirus, в частности экраны или брандмауэр, могут перейти в состояние Остановлено, при этом их будет невозможно запустить вручную через интерфейс программы Avast Antivirus.

Эти проблемы, как правило, вызваны ограниченными или несовместимыми правами записи на диск, в системные папки или реестр Windows, что мешает программе установки Avast установить, обновить, удалить или перезаписать некоторые программные файлы или записи реестра. Отсутствие каких-либо из этих файлов и записей или их повреждение может привести к неправильному функционированию программы Avast Antivirus или ее отдельных компонентов.

Некоторые из действий, описанных в этой статье, могут потребовать углубленных технических навыков, но их необходимо выполнить, чтобы полностью устранить проблемы с компонентами Avast Antivirus и предотвратить их возникновение в будущем.

Объяснение:

Прежде чем приступить к устранению неисправностей, убедитесь, что вы вошли в систему Windows как пользователь с правами администратора, а все другие программы в ОС Windows закрыты. Более подробную информацию можно найти в статье ниже.

4,6(69 оценок)
Ответ:
nparshina14
nparshina14
02.11.2022
Const
  n=40;
var
  i,s1,s2,k:integer;
  s:real;
  a:array[1..n] of integer;
begin
  Randomize;
  Write('Сгенерированный массив: ');
  s:=0; s1:=0; s2:=0; k:=0;
  for i:=1 to n do begin
    a[i]:=Random(21);
    Write(a[i],' ');
    if a[i] mod 2<>0 then begin s:=s+a[i]; Inc(k) end;
    if a[i]<=10 then s1:=s1+a[i];
    if a[i] mod 3=0 then s2:=s2+a[i]
    end;
  Writeln;
  Writeln('Ср.арифм.нечетных = ',s/k);
  Writeln('Сумма не больших 10 = ',s1);
  Writeln('Сумма кратных 3 = ',s2)
end.

Пример выполнения программы
Сгенерированный массив: 14 19 1 5 0 2 1 3 2 15 5 3 18 0 4 12 5 0 9 2 14 7 18 13 0 16 9 15 19 14 13 13 16 16 1 16 14 2 1 1
Ср.арифм.нечетных = 7.9
Сумма не больших 10 = 63
Сумма кратных 3 = 102
4,8(70 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ