Найдем первое число из данного диапазона, кратное семи.
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.
<u><em>Тестовое решение:</em></u>
S=2107
/* 1 */
#include <stdio.h>
struct Point {
double x, y;
};
struct Point fillPoint(unsigned short int id) {
struct Point p;
printf("Точка №%d\n", id);
printf("x = ");
scanf("%lf", &(p.x));
printf("y = ");
scanf("%lf", &(p.y));
return p;
}
int pointsInSameQuarter(struct Point p1, struct Point p2) {
if ( ( (p1.x > 0) && (p2.x > 0) ) || ( (p1.x < 0) && (p2.x < 0) ) ) { /* xs */
if ( ( (p1.y > 0) && (p2.y > 0) ) || ( (p1.y < 0) && (p2.y < 0) ) ) { /* ys */
return 1;
}
}
return 0;
}
int main() {
struct Point p1 = fillPoint(1), p2 = fillPoint(2);
printf("Точки %sв одной координатной четверти", (pointsInSameQuarter(p1, p2) ? "" : "не "));
}
/* 2 */
#include <stdio.h>
#include <math.h>
int main() {
int x;
printf("x = ");
scanf("%d", &x);
float r;
int c = 0;
for (int d = 1; d <= x; d++) {
r = (float) x / d;
if ( ceilf(r) == r ) c++;
}
printf("Ответ: %d", c);
}
Q= 100 Мбит/с = 4*25*2^(23) бит/с = 25*2^(25) бит/с
F= 6400 Кбайт =2^6*2² *25 * 2^(13) бит = 25*2^(21) бит
Избыт. =20%; 100%+20%=120% или 1,2 части
Fi=1,2*25*2^(21) бит
Время t = Fi / q = 1,2*25*2^(21) / (25*2^(25)) = 1,2 / 2^4 = 1,2/8= 0,15 c
Var x,y,z:integer;
begin
x:=5; y:=-6
if (x>y) then z:=x+y else z:=y-x;
Writeln(Z);
end.