Регистрация
kino2011
03.04.2020 10:55
Информатика
Есть ответ 👍

Составить программу для вычисления суммы квадратов чисел от 1 до 15. функция возведения в квадрат sqr(); var , , : ; begin : =0; for : = to do begin ; ; end; writeln(' =', ); end. там, где пробелы, вставить что нужно

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

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

vikabelaua114
vikabelaua114
4,5(80 оценок)
Var i,s,x: integer; ; begin s: =0; for i: =1 to 15  do begin x: =sqr(i); s: =s+x; end; writeln('suma =',s ); end.2) второе решение  var i,s,x: integer; ; begin s: =0; for i: =1 to 15  do  s: =s+sqr(i); writeln('suma =',s ); end.
лулы
лулы
4,7(22 оценок)
Program project1; var m: array [0..14] of integer; i: integer; function ispositive(a: integer): boolean; begin   result: =(a> -1); end; procedure work; var min, max, count: integer; begin   count: =0;   min: =m[0];   max: =0;   for i: =0 to 14 do begin       if ispositive(m[i]) then begin           inc(count);           if m[i]> max then max: =m[i];           if m[i]< min then min: =m[i];       end;   end;   writeln('max: ', max);   writeln('min: ', min);   writeln('count: ', count); end; begin   for i: =0 to 14 do begin       write('n: ');       readln(m[i]);   end;   work;   readln; end.

Популярно: Информатика