Найти сумму чисел от 3, 5, 7, 9, 11 101 через паскаль. , )

Var   i, s: integer; begin   s : = 0;   i : = 3;   while i < = 101 do   begin       s : = s + i;       i : = i + 2   end;   writeln('сумма равна ', s) end. тестовое решение: сумма равна 2600

#include < stdio.h> #include < math.h> int isprime(int x) { for (int i = 2; i < = sqrt(x); i++) { if (x % i == 0) return 0; } return 1; } int main() { /* ввод значений */ int n; scanf("%d", & n); int nums[n]; for (int i = 0; i < n; i++) { scanf("%d", & nums[i]); } /* поиск минимального значения */ int min = nums[0]; for (int i = 1; i < n; i++) { if (nums[i] < min) min = nums[i]; } /* поиск делителя */ int ret = 0; int isdiv = 1; for (int i = min; i > 1; { printf("test %d\n", i); if (isprime(i)) { printf(" %d prime\n", i); for (int j = 0; j < n; j++) { if (nums[j] % i ! = 0) { printf(" on pos %d not div %d\n", j, i); isdiv = 0; break; } } if (isdiv) { ret = i; printf(" ret = %d, break\n", ret); break; } else { isdiv = 1; } } } printf("%d", ret); return 0; }

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! type   fs=(string,string); begin   var l: =new list< fs> ;   repeat       var aw: =readlnstring('> ').towords;       if aw.length=0 then break;       l.add((aw[1],aw[0]))   until false;   var a: =l.orderby(t-> t[0]);   var i: =1;   foreach var x in a do begin       writeln(i: 4,' ',x[1],' ',x[0]);       i+=1       end end. пример > j.x. smith > b.a. weiter > a.c. johnes >     1 a.c. johnes     2 j.x. smith     3 b.a. weiter