Var
K,i:integer;
Begin
Write('K = ');
ReadLn(K);
i:=1;
Repeat
Write(2*i-1,' ');
i:=i+1;
Until i>K;
End.
Хотя гораздо проще было бы сделать так:
Var
K:integer;
Begin
Write('K = ');ReadLn(K);
For K:= 1 to K do
Write(2*K-1,' ');
End.
А сколько строк?
а то не решить
Скорее всего 1, больше отличается от остальных
6)
Значение переменной а равно 6
7)
<span>Значение S
равно 73</span><span>
</span>
program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.