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

Программа для суммирование элементов последовательности, признаком конца которой является 0. программа на языке паскаль, при использовании массива

👇
Ответ:
Сашечка11
Сашечка11
12.12.2022

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0).Sum.Print

end.

Объяснение:

После ввода нуля на следующей строке будет выдана сумма. Числа можно вводить и в строку, но в любом варианте, если в строке после нуля набрать еще цифры, в сумму войдут лишь те, которые шли до первого встреченного нуля.

Если хочется именно МАССИВ (т.е. чтобы он так назывался в программе) будет чуть длиннее:

begin

 var a := ReadSeqIntegerWhile(p -> p <> 0).ToArray;

 a.Sum.Print

end.


Программа для суммирование элементов последовательности, признаком конца которой является 0. програм
4,5(77 оценок)
Открыть все ответы
Ответ:
111110098735280
111110098735280
12.12.2022
Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.
4,8(12 оценок)
Ответ:
bakinka005
bakinka005
12.12.2022
Найдите лишнее

Операционная система, остальное - программы.

Найти и исправить ошибки

Системные программы - это средства, предназначенные для работы с операционной системой.

Операционные системы

а) DOS, Windows, Unix

Сервисные программы

в) Системные оболочки, утилиты, драйвера устройств, антивирусные и сетевые программы.

Текстовый редактор

а) Системного программного обеспечения.

Операционная система

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

Драйвер

б) Программа, управляющая конкретным внешним устройством.

Экспертные системы

д) Прикладным программам специального назначения

Средства контроля и диагностики

д) Сервисному программному обеспечению


2 ВариантПрограммное обеспечение - это

программа, управляющая компьютером или его процессами.

Найдите лишнее

OC Windows, остальные - программы.

Найти и исправить ошибки

Прикладные программы – это средства, предназначенные для определённых задач пользователя.

Системное программное обеспечение

а) Программы для организации совместной работы устройств компьютера как единой системы.

Система управления базами

д) Прикладного программного обеспечения.

Операционные системы

б) Системного программного обеспечения.

Программы обслуживания устройств

б) Драйверами.

В прикладное ПО входят

д) Текстовые редакторы.

Назначение ПО

в) Организует процесс обработки информации в соответствии с программой.

Система программирования позволяет

г) Организовать общение человека и компьютера на формальном языке.

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