Найдем первое число из данного диапазона, кратное семи. 100 / 7 = 14 и остаток 2. 100 + (7-2) = 105. (можно найти это число и другими путями). И теперь задача сводится к нахождению суммы чисел последовательности 105, 112, ... где последнее число не превышает 200,
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016 begin Writeln('S=',Range(105,200,7).Sum) end.
Сетевой адаптер - это периферийное устройство компьютера, непосредственно взаимодействующее со средой передачи данных, которая прямо или через другое коммуникационное оборудование связывает его с другими компьютерами. Коммутатор представляет собой электронное, электромеханическое или электронно-лучевое устройство, которым оснащено каждое транспортное средство. Беспроводная точка доступа — это беспроводная базовая станция, предназначенная для обеспечения беспроводного доступа к уже существующей сети, тобиш Wi-Fi.
Var a,z,s,i,m:integer; begin readln(a); s:=0; z:=a; for i:=1 to 3 do begin s:=s+(z mod 10); z:=z div 10; end; if s mod 2 = 0 then writeln('1. Верно')else writeln('1. Неверно'); z:=a; s:=z mod 10; z:=z div 10; m:=0; for i:=1 to 2 do begin if s < z mod 10 then begin m:=1; break; end else begin s:=z div 10; z:=z div 10; end; end; if m = 0 then writeln('2. Верно')else writeln('2. Неверно'); z:=a; m:=0; for i:=1 to 3 do begin if z mod 10 = 5 then begin m:=1; break; end else begin z:=z div 10; end; end; if m = 1 then writeln('3. Верно')else writeln('3. Неверно'); if a mod 10=7 then writeln('4. Верно')else writeln('4. Неверно'); end.
100 / 7 = 14 и остаток 2.
100 + (7-2) = 105. (можно найти это число и другими путями).
И теперь задача сводится к нахождению суммы чисел последовательности 105, 112, ... где последнее число не превышает 200,
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('S=',Range(105,200,7).Sum)
end.
Тестовое решение:
S=2107