Дано вещественное число а и целое число n (> o) используя один цикл найти сумму. 1+ а+ а ( в кд.) + а (в кубе) + . . + а ( в n)

program dl9_meru3;

var a,s: real; n,i: integer

begin

writeln ('vvedit a i n(> 0)');

readln (a,n);

s: =0;  

a: =a+1;  

for i: =2 to n do

begin 

s: =s+a;

a: =a*a;

end;

writeln ('suma=',s);

readln

end. 

 

#include < stdio.h> #include < stdlib.h> #include < locale.h> #include < string.h> //имя файла #define filename "file.txt" //максимально возможная длина строки (выделение памяти) #define l_str 255 int main() { setlocale(lc_all, "rus"); file *t = fopen(filename, "r"); if (t == null) {   printf("файл не найден\n"); } else {   //текущая строка   char *s = (char*) malloc(sizeof(char) * l_str);   //максимальная строка char *s_max = (char*)malloc(sizeof(char) * l_str);   //кол-во строк   int k_str = 0;   //максимальная длина строки   int l_max = 0;       while (! feof(t)) {   fgets(s, l_str, t);   //длина текущей строки   int l = strlen(s); if (l > l_max) { l_max = l;     strcpy(s_max, s);   } k_str++;   } //вывод результата: printf("строк в файле: %d\n", k_str); printf("максимальная строка, длинной %d: \n", l_max-1); puts(s_max); } fclose(t); printf("\n"); system("pause"); return 0; }

Var       i, k, n, d: integer; begin       readln(n);       k : = 0;             for i : = 1 to n do       begin               readln(d);               { d: =random(100); }               if (d mod 10 = 3) then                       k : = k + 1;       end;             writeln(k); end.