Составьте программу в паскале ,пожалуйста. Turbo Pascal(циклы ...

Question

Составьте программу в паскале ,пожалуйста. Turbo Pascal(циклы ...

Lera

Составьте программу в паскале ,пожалуйста. Turbo Pascal(циклы паскаль оператор FOR) 1)подсчитать произведение первых семнадцати целых положительных чисел.

Есть ответ

17.12.2022

222

Ответ

Answer 1 · 17.12.2022

1)

var mas:array[1..17] of integer;a:real;b:integer;c:integer;

begin a:=1; for b:=1 to 17 do write; for c:=1 to 17 do begin mas[b]:=c; a:=mas[b]*a; end; write (a);end.

2)

var i:integer;begin for i:=-17 to 3 do if i mod 4 = 0 then writeln (i);end.

Составьте программу в паскале ,пожалуйста. Turbo Pascal(циклы ...

Составьте программу в паскале ,пожалуйста. Turbo Pascal(циклы паскаль оператор FOR) 1)подсчитать произведение первых семнадцати целых положительных чисел.

Ответ

1) var mas:array[1..17] of integer;a:real;b:integer;c:integer; begin a:=1; for b:=1 to 17 do write; for c:=1 to 17 do begin mas[b]:=c; a:=mas[b]*a; end; write (a);end. 2) var i:integer;begin for i:=-17 to 3 do if i mod 4 = 0 then writeln (i);end.

1)

var mas:array[1..17] of integer;a:real;b:integer;c:integer;

begin a:=1; for b:=1 to 17 do write; for c:=1 to 17 do begin mas[b]:=c; a:=mas[b]*a; end; write (a);end.

2)

var i:integer;begin for i:=-17 to 3 do if i mod 4 = 0 then writeln (i);end.