Не можете запрограммировать обычную задачу? распишу максимально подробно: program z; var v, s, t:real; //объявление переменных типа real(дробные), где s - расстояние, v - скорость, t - время begin write('Vvedite rasstoyanie: '); //вывод сообщения на экран read(s); //запрос на ввод расстояния(результат ввода помещается в переменную s) write('Vvedite skorost: '); //вывод сообщения на экран read(v);//запрос на ввод расстояния(результат ввода помещается в переменную v) t:=s/v; //по формуле вычисляем время, результат заносится в переменную t write('vremya: ', t); //выводится сообщение с результатом end.
Const n = 5; var x: array[1..n] of integer; i: integer;
begin for i := 1 to n do readln(x[i]); for i := 1 to n do if i = 1 then x[1] := 2 else if (i = n) and (n mod 2 <> 0) then x[n] := n - 1 else if i mod 2 <> 0 then x[i] := ((i + 1) + (i - 1)) / 2; for i := 1 to n do writeln(x[i]); end.
var m, n, m1, n1, k: integer; ch, ost: real; begin readln(m, n); m1 := m; n1 := n; k := 0; if m<n then begin ost:=m/n; ch:=0; end; if m=n then begin ch:=1; ost:=0; end; if m>n then begin while m1 > 0 do begin if m1 = n then begin k := k + 1; break; end; m1 := m1 - n; k := k + 1; end; ch := k - 1; if m1 = n then begin ost := 0;ch := k;end else begin ost := (m1 + n1) / n1; ch := k - 1;end; end; writeln(ch, ' ', ost); end.
const n=5; var a:array[1..n] of real; i,k:integer; b,p:real; begin k:=1; for i:=1 to n do readln(a[i]); writeln('введите число'); readln(b); for i:=1 to n do begin if a[i]<b then begin p:=a[k]; a[k]:=a[i]; a[i]:=p; k:=k+1; end; end; for i:=1 to n do writeln(a[i]); end.
Объяснение:
9/2=4 (1)
4/2=2 (0)
2/2=1 (0)
(1)
9₁₀=1001₂
17/2=8 (1)
8/2=4 (0)
4/2=2 (0)
2/2=1 (0)
(1)
17₁₀=10001₂
245/2=122 (1)
122/2=61 (0)
61/2=30 (1)
30/2=15 (0)
15/2=7 (1)
7/2=3 (1)
3/2=1 (1)
(1)
245₁₀=11110101₂
451/2=225 (1)
225/2=112 (1)
112/2=56 (0)
56/2=28 (0)
28/2=14 (0)
14/2=7 (0)
7/2=3 (1)
3/2=1 (1)
(1)
451₁₀=111000011₂
596/2=298 (0)
298/2=149 (0)
149/2=74 (1)
74/2=37 (0)
37/2=18 (1)
18/2=9 (0)
9/2=4 (1)
4/2=2 (0)
2/2=1 (0)
(1)
596₁₀=1001010100