Св ! обе решить тремя способами (for, while, repeat) 1. вывести последовательность чисел на экран 12, 24, 36, , n 2. найти сумму чисел 6, 12, 18, , n

225

233

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

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

MrDackes

Информатика

4,7(69 оценок)

1.1)var n,i: integer; begin writeln('введите число n'); readln(n); for i: =1 to n do begin if (i mod 12=0) then write(i,' '); end; end. 1.2)var n,i: integer; begin writeln('введите число n'); readln(n); i: =1; while (i< =n) do begin if (i mod 12=0) then write(i,' '); i: =i+1; end; end.1.3)var n,i: integer; begin writeln('введите число n'); readln(n); i: =1; repeat if (i mod 12=0)then write(i,' '); i: =i+1; until (i> n); end. 2.1)var n,i,s: integer; begin s: =0; writeln('введите число n'); readln(n); for i: =1 to n do beginif (i mod 6=0)then s: =s+i; end; writeln('сумма равняется ',s); end.2.2)var n,i,s: integer; begin s: =0; writeln('введите число n'); readln(n); i: =1; while (i< =n) do begin if (i mod 6=0) then s: =s+i; i: =i+1; end; writeln('сумма равняется ',s); end.2.3)var n,i,s: integer; begin s: =0; writeln('введите число n'); readln(n); i: =1; repeat if (i mod 6=0) then s: =s+i; i: =i+1; until (i> n); writeln('сумма равняется ',s); end.