решить. Нужно с 1 по 5 определить входные и выходные данные и составить блок-схему алгоритма, в 6 показать внутреннее представление чисел во всех целочисленных форматах. 1) Дано відстань L в сантиметрах. Використовуючи операцію ділення без остачі, знайти кількість повних метрів у ньому (1 метр =100 см).
2) Дано три числа. Вивести спочатку найменше, а потім найбільше з даних чисел.
3) Задано три цілих числа. Знайти суму непарних із них.
4) Дано набір ненульових дійсних чисел; ознака його завершення – число 0. Знайти суму від’ємних чисел.
5) Дано ціле число N(> 1) і набір з N цілих чисел. Знайти найбільше від'ємне число серед введених.
6) Показати внутрішнє подання чисел 156, -156 у всіх цілочисельних форматах

Если число заканчивается на 5 или 0, то по признакам делимости оно кратно 5.

1. Глупый школьный вариант

Перебираем все числа в заданном диапазоне и если встречаем кратное 5, прибавляем его к сумме.

var
  i,s:integer;

begin
  s:=0;
  for i:=1 to 200 do
    if i mod 5=0 then s:=s+i;
  Writeln(s)
end.

Результат:
4100

2. Более умный школьный вариант с циклом while

Первое число, кратное 5 - это 5. А дальше прибавляем по 5 к сумме и ничего не нужно проверять.

var
  i,s:integer;

begin
  i:=5; { первое подходящее число }
  s:=i;
  while i<200 do begin
    i:=i+5;
    s:=s+i
    end;
  Writeln(s)
end.

3. Еще более умный школьный вариант с циклом for

От предыдущего отличается получения нужных чисел.
Замечаем, что ряд 5, 10, 15, 20, ... можно получить из чисел 1, 2, 3, 4, ..., умножая их на 5. И таких чисел будет 40.

var
  i,s:integer;

begin
  s:=0;
  for i:=1 to 40 do s:=s+5*i;
  Writeln(s)
end.

4. Современный вариант на современном Паскале

Генерируем последовательность нужных чисел и находим сумму её элементов.

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

begin
  Range(5,200,5).Sum.Println
end.

◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная)
◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна)
◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения.
◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д.
◘Актуальность информации – важность для настоящего времени.
◘Полезность информации.
 - Самая ценная информация – объективная, достоверная, полная, и актуальная.