Если число заканчивается на 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 // Внимание! Если программа не работает, обновите версию!
2. Устройство, выполняющее все арифметические и логические операции и управляющее другими устройствами компьютера, называется: b. Процессором;
3. Многопроводная линия для информационного обмена между устройствами компьютера называется: c. Магистралью;
4. Компьютер – это: d. Многофункциональное устройство для работы с информацией;
5. Магистрально-модульный принцип архитектуры современных персональных компьютеров подразумевает такую логическую организацию его аппаратных компонент, при которой: c. Каждое устройство связывается с другими через магистраль, включающую в себя шины данных, адреса и управления;
6. Во время использования прикладная программа хранится: d. В оперативной памяти;
7. При отключении компьютера от сети информация исчезает: a. Из оперативной памяти;
8. Устройство для подключения компьютера к сети Интернет: a. Модем;
9. Операционные системы входят в состав: d. Системного программного обеспечения;
10. Программы обслуживания внешних устройств компьютера называются: a. Драйверами;
begin
write('a = ');
readln(a);
if a<0
then z:=-1
else if a=0 then z:=0 else z:=1;
writeln('z = ',z);
end.
Пример:
a = 23
z = 1