ขนาดวิดีโอ: 1280 X 720853 X 480640 X 360
แสดงแผงควบคุมโปรแกรมเล่น
เล่นอัตโนมัติ
เล่นใหม่
Спасибо большое,очень доходчиво.Очень мне помогли
Спасибо
очень полезно!
А в какой програме надо это делать?
Здесь используется Pascal ABC
Класс мне нравится
var i,n:integer;begin Write('n='); Readln(n); for i:=1 to n do Write(i, ', ');end.
Как дела
var p,n,i: integer;beginwrite('введите n: '); readln(n);p:=1;for i:=1 to n dop:=p*i;write('P=',p);readlnend.
program arsipa;var i,a:Integer;begina:=10;for i:= 0 to 4 dobegina:=a*2;WriteLn(a);end;end.
var n, s, i: integer;beginreadln(n);s:=0;for i:=1 to n do s:=s+i;writeln('s = ',s);end.
Привет
Чё делаешь
Пока
Спасибо большое,очень доходчиво.Очень мне помогли
Спасибо
очень полезно!
А в какой програме надо это делать?
Здесь используется Pascal ABC
Класс мне нравится
var i,n:integer;
begin
Write('n='); Readln(n);
for i:=1 to n do Write(i, ', ');
end.
Как дела
var p,n,i: integer;
begin
write('введите n: '); readln(n);
p:=1;
for i:=1 to n do
p:=p*i;
write('P=',p);
readln
end.
program arsipa;
var i,a:Integer;
begin
a:=10;
for i:= 0 to 4 do
begin
a:=a*2;
WriteLn(a);
end;
end.
var n, s, i: integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s = ',s);
end.
Привет
Чё делаешь
Пока