Почему не идет программа? в ответе нужны нечетные числа от 3 до 25
program chislo;
var a,i:integer;
begin
i:=3;
writeln(i);
repeat
a:=i+2;
until a <56;
writeln(a);
end.
program chislo;
var a,i:integer;
begin
i:=3;
writeln(i);
repeat
a:=i+2;
until a <56;
writeln(a);
end.
More Questions From This User See All
Answers & Comments
i: integer;
begin
i := 3;
writeln(i);
repeat
i := i + 2;
writeln(i);
until i >= 25;
end.
цикл этот работает, пока условие ложно) Да и переменная a лишняя, пожалуй)