РЕШИТЬ В ПРОГРАММЕ ПАСКАЛЬ Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5

Объяснение:

var n,i,a,s:integer;

begin

write('n = ');

readln(n);

s:=0;

writeln('Введите ',n,' чисел:');

for i:=1 to n do

 begin

 read(a);

 if a mod 5 = 0 then s:=s+a;

 end;

writeln('s = ',s);

end.

Пример:

n = 6

Введите 6 чисел:

12 45 84 37 10 51

s = 55

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var st:='balloon duster tooth loot cooperation'; // не вводим
  // var st:=ReadlnString; // если хочется вводить
  var s:=st.ToWords; // массив из слов s[i]
  s.Println; // показать исходный массив слов
  // собственно решение
  var i:=s.Select(w->w.Length).ToArray.IndexMin; // индекс короткого слова
  s[i]:=s[i].Replace('oo','');
  s.Println; // результат
end.

Результат
balloon duster tooth loot cooperation
balloon duster tooth lt cooperation

Большинство компьютерных экспертов сходятся в том, что история развития принтера началась почти двести лет назад, когда в 1822 году англичанин Бэббидж начал разработку «большой разностной машины», которая должна была делать расчёты и тут же печатать в виде таблиц их результаты. К 1834 году машина так и не была создана, хотя на её разработку ушло 23 тысячи фунтов, однако, работа над ней была прервана, а 1842 году проект Бэббиджа перестал финансироваться британским правительством. Большая разностная машина умерла, так и не родившись.Любопытно, что через 150 лет сотрудники Лондонского научного музея по сохранившимся чертежам смогли воссоздать этот уникальный прибор, являющийся фактически, механической вычислительной машиной. В него входили более 8 тысяч деталей, а весил данный «калькулятор» 5 тонн. Но самое главное – машина на самом деле могла решать простейшие уравнения и печатать на бумаге результаты! Поэтому Бэббиджа с определённой натяжкой можно назвать тем человеком, кто изобрел принтер.