Если число заканчивается на 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 // Внимание! Если программа не работает, обновите версию!
1) Program dasf; var a,b,i,s: integer; begin Writeln('Введите четырёхзначное число'); readln(a); For i:=1 to 4 do begin S:=a mod 10+s; a:=a div 10 end; writeln('Сумма цифр четырёхзначного числа:',s); end. 2)Program sgsgsdfg; var a,b,c,a1,b1,c1: real; begin Writeln('Введите а'); readln(a); Writeln('Введите b'); readln(b); Writeln('Введите c'); readln(c); If (a=b) or (a=c) then a1:=a*a else a1:=a*2; If (b=a) or (b=c) then b1:=b*b else b1:=b*2; If (c=a) or (c=b) then c1:=c*c else c1:=c*2; Writeln('Полученные числа: а=',a1,' b=',b1,' c=',c1); end. 3) Program afgsdg; var n,a,b,i: integer; begin; Writeln('Введите число'); readln(a); Writeln('Введите степень'); readln(n); b:=a; For i:=2 to n do a:=a*b; Writeln('Число ',b,' в степени ',n,' равно ',a); end.
