1.Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 2. 2.Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 2. 3.Напишите программу, которая в последовательности натуральных чисел определяет определяет сумму всех чисел, кратных 2 и оканчивающихся на 2. Паскаль

Вопрос школьника по предмету Информатика

1.Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 2.
2.Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 2.
3.Напишите программу, которая в последовательности натуральных чисел определяет определяет сумму всех чисел, кратных 2 и оканчивающихся на 2.
Паскаль

Ответ учителя по предмету Информатика

Обратим внимание, что задания 2 и 3 предполагают одинаковый результат: в самом деле, если число оканчивается на 2, то оно четное, т.е. кратно двум, что приводит задание 3 к заданию 2.

Для задания 1 или заданий 2,3 оставляем в программе только нужную строку.в соответствии с комментарием.

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017

// Внимание! Если программа не работает, обновите версию!

begin

  var a:=ArrRandom(ReadInteger(‘n=’),1,99); a.Println;

  Writeln(‘k=’,a.Where(k->k.IsEven).Count); // для задания 1

  Writeln(‘s=’,a.Where(k->k mod 10=2).Sum) // для заданий 2/3

end.

Пример

n= 17

61 32 83 78 47 80 85 64 52 85 30 77 96 81 14 65 67

k=8

s=84