Составьте программу (паскаль) вычисления суммы квадратов чисел от 10 до 100, делящихся без остатка на 7 совсем не знаю, как это делать : с, люди добрые

241

300

Посмотреть ответы 2

Ответы на вопрос:

skrydyya

Информатика

4,8(60 оценок)

var i: integer;

begin

for i: =10 to 100 do

if i mod 7 = 0 then

writeln(sqr(i));

end.

mshshjsbdhikbcg

Информатика

4,6(47 оценок)

/* 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); }