var i,N:integer; begin веедите натуральное число не превосходящее 1000'); readln(N); writeln('Входное число=',N); for i:=0 to (N-1) do write(i,' '); end.
Пример работы: веедите натуральное число не превосходящее 1000 5 Входное число=5 0 1 2 3 4 P.S.Если в условии от 1-го, а не от нуля, for i:=0 to (N-1) do write(i,' '); замени на for i:=1 to (N-1) do write(i,' ');
Лишняя информация, если тебе не нравится информатика: на сколько я понял, ты не мог понять как вывести сначала число 5. В моей программе это делает оператор writeln(N); Именно Writeln, а не Write. Почему? Потому что writeln произошло от слова line - линия, оно занимает целую строку. А Write мастит все в одну строку. Если нужно будет что-то рассказать и это будет в моих силах, я с радостью любому желающему.
function gcd(a: integer; b: integer): integer; {Нахождение НОД} var i: integer; begin while b <> 0 do begin a := a mod b; i := b; b := a; a := i end; result := a end;
function RedFrac(a: Frac): Frac; {Сокращение дроби} var igcd: integer; r: Frac; begin igcd := gcd(a.P, a.Q); r.P := a.P div igcd; r.Q := a.Q div igcd; RedFrac := r end;
function Add(a, b: Frac): Frac; {Сложение дробей} var r: Frac; begin r.P := a.P * b.Q + b.P * a.Q; r.Q := a.Q * b.Q; Add := RedFrac(r) end;
function Mult(a, b: Frac): Frac; {Умножение дробей} var r: Frac; begin r.P := a.P * b.P; r.Q := a.Q * b.Q; Mult := RedFrac(r) end;
var m, n, k: Frac;
begin m.P := 4; m.Q := 15; {4/15} n.P := 9; n.Q := 25; {9/25} k := Add(m, n); Writeln(k.P, '/', k.Q); k := Mult(m, n); Writeln(k.P, '/', k.Q); end.
begin
веедите натуральное число не превосходящее 1000');
readln(N);
writeln('Входное число=',N);
for i:=0 to (N-1) do write(i,' ');
end.
Пример работы:
веедите натуральное число не превосходящее 1000
5
Входное число=5
0 1 2 3 4
P.S.Если в условии от 1-го, а не от нуля, for i:=0 to (N-1) do write(i,' '); замени на for i:=1 to (N-1) do write(i,' ');
Лишняя информация, если тебе не нравится информатика: на сколько я понял, ты не мог понять как вывести сначала число 5. В моей программе это делает оператор writeln(N); Именно Writeln, а не Write. Почему? Потому что writeln произошло от слова line - линия, оно занимает целую строку. А Write мастит все в одну строку. Если нужно будет что-то рассказать и это будет в моих силах, я с радостью любому желающему.