АК
Алексей Костин
Как зайти в цикл с "1" ? Цикл начинается с "1*2", а надо с "1", помогите плз
uses crt;
var i,k,S:integer;
begin
write('введите число ');
readln(i);
k:=1;
S:=0;
while k
while k
uses crt;
var i,k,S:integer;
begin
write('введите число ');
readln(i);
k:=1;
S:=0;
while k
while k
используйте цикл for ()
writeln("Введите N");
readln(n);
for i:=1 to n do
writeln(i);
Т. е. получается цикл от 1 до n.