Если число заканчивается на 5 или 0, то по признакам делимости оно кратно 5.
<u>1. Глупый школьный вариант</u>
Перебираем все числа в заданном диапазоне и если встречаем кратное 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.
<em>Результат:</em>
4100
<u>2. Более умный школьный вариант с циклом while</u>
Первое число, кратное 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.
<u>3. Еще более умный школьный вариант с циклом for</u>
От предыдущего отличается способом получения нужных чисел.
Замечаем, что ряд 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.
<u>4. Современный вариант на современном Паскале</u>
Генерируем последовательность нужных чисел и находим сумму её элементов.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(5,200,5).Sum.Println
end.
1.Б - <span>цвет
</span>2.Г - <span>декоративная отделка(текст)</span>
Var n:string;
begin
readln(n);
writeln('Число сотен: ',n[4]);
writeln('Число тысяч: ',n[3]);
<span>end.</span>
<span>A16 == </span>BF2D+ACAB = 16<span>BD8
</span>A7 == 534*65 = 51666
A9 == <span>40052-28716 </span>= 10235
Если интересно как , то самый простой способ :
1) переводим из 16,7,9 в 10;
2)выполняем действия ("+" "*" "-" );
3)Переводим назад в указанные СС (16,7,9)
На C++:
#include <iostream>
using namespace std;
int main()
{
int count=1, min=30001, val;
do
{
cin >>val;
if(val>30000) val-=30000;
if((val<min) && (val>0)) min=val;
if(count<1000) ++count;
} while(val>0);
cout <<"Минимальный элемент: " <<min;
return 0;
}