Домашние задания: Информатика

Дз по информатике, помогите пожалуйста.

Задание 1 (30 баллов).

Составить программу на языке Паскаль или Python для обработки одномерного массива из 15 целых чисел. Значения элементов массива задать с клавиатуры самостоятельно. Найти сумму элементов, которые делятся на 4 без остатка.

На проверку нужно прислать скриншот с кодом программы на Паскале или Python, а также результаты работы. Программная реализация обязательна.


Задание 2 (30 баллов).

Составить программу на языке Паскаль или Python, которая удалит из введённого с клавиатуры предложения все буквы а. Выведите на экран полученный результат и информацию о количестве удалённых символов.

Предложение нужно придумать самостоятельно.

На проверку нужно прислать файл с кодом программы (в текстовой форме), скриншот с отображением кода и результата работы.

Программная реализация обязательна.


Задание 3 (40 баллов).

Создайте текстовый файл, в котором через пробел записаны не менее 8 целых чисел. Выведите на экран сумму чисел, которые принадлежат промежутку от 5 до 45.

На проверку нужно прислать скриншот с кодом программы и результатом работы на Паскале или Python, а также полученный текстовый файл. Программная реализация обязательна.
ДС
Диля Санакова
97
Задание 1.

Вводить с клавиатуры 15 чисел? Длинно и нудно... Пусть работает ДСЧ! :))))
PascalABC:
ШЖ
Шырын Жумахан
73 229
Лучший ответ
за весь год "домашки" сделать решил ?
почему так неоднозначно на каком языке?
Людмила Никонова
Людмила Никонова
92 545
Задание 1 (Pascal)
 program Task1; 

 

var 

  arr: array[1..15] of integer; 

  i, sum: integer; 

 

begin 

  // Ввод значений элементов массива 

  writeln('Введите 15 целых чисел:'); 

  for i := 1 to 15 do 

    readln(arr[i]); 

 

  // Подсчет суммы элементов, которые делятся на 4 без остатка 

  sum := 0; 

  for i := 1 to 15 do 

  begin 

    if arr[i] mod 4 = 0 then 

      sum := sum + arr[i]; 

  end; 

 

  writeln('Сумма элементов, которые делятся на 4 без остатка: ', sum); 

end.
Задание 2 (Pascal)
 program Task2; 

 

var 

  sentence, newSentence: string; 

  i, countRemoved: integer; 

 

begin 

  // Ввод предложения с клавиатуры 

  writeln('Введите предложение:'); 

  readln(sentence); 

 

  // Удаление букв "а" из предложения 

  newSentence := ''; 

  countRemoved := 0; 

  for i := 1 to Length(sentence) do 

  begin 

    if sentence[i]  'а' then 

      newSentence := newSentence + sentence[i] 

    else 

      countRemoved := countRemoved + 1; 

  end; 

 

  writeln('Результат после удаления букв "а":'); 

  writeln(newSentence); 

  writeln('Количество удаленных символов: ', countRemoved); 

end.
Задание 3
Для данного задания предполагается, что тебе нужно создать файл "numbers.txt" и записать в него не менее 8 целых чисел, разделенных пробелами. Например:
10 20 5 30 7 15 25 35 
 program Task3; 

 

var 

  inputFile: TextFile; 

  num, sum: integer; 

 

begin 

  // Открытие файла для чтения 

  AssignFile(inputFile, 'numbers.txt'); 

  Reset(inputFile); 

 

  // Чтение чисел из файла и подсчет суммы чисел из промежутка от 5 до 45 

  sum := 0; 

  while not EOF(inputFile) do 

  begin 

    Read(inputFile, num); 

    if (num >= 5) and (num
Albina Ospanova
Albina Ospanova
17 984
Диля Санакова Большое спасибо)
Жди
Елена Сурикова
Елена Сурикова
494

Похожие вопросы