Предмет: Информатика,
автор: moscow1993
Составьте программу в паскале ,пожалуйста. Turbo Pascal(циклы паскаль оператор FOR) 1)подсчитать произведение первых семнадцати целых положительных чисел.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Биология,
автор: Аноним
Предмет: Английский язык,
автор: milansha72
Предмет: Математика,
автор: abdullaevalola509
Предмет: История,
автор: Kir0r0