Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
пролететь-расстояниепроехать на лифте-номер этажаспрыгнуть-высота,скоростьпоесть-количествоповернуть-время,напровление
1)
var
a,b: array [1..100] of integer;
i,j,k,a,b,f: integer;
begin
randomize;
readln(a);
readln(b);
k: =0;
for i: =1 to 20 do
a[i]: =random(135)-45;
f: =0;
for j: =a to b do
if (a[i]=j) and (a[i] mod 7 =0) then f: =1;
if f=0 then
k: =k+1;
b[k]: =a[i];
end;
for i: =1 to k do
writeln(b[i]);
end.
2)
i,j,k: integer;
readln(k);
j: =0;
writeln(a[i]);
for i: =1 to 19 do
if a[i]*a[i+1]> 0 then
j: =j+1;
b[j]: =a[i];
b[j]: =k;
end
else
b[j]: =a[20];
for i: =1 to j do
writeln(b[j]);
3)
a,b: array [1..20] of integer;
i,j,k1,k2: integer;
readln(k1);
readln(k2);
if k1< k2 then
for i: =1 to k1-1 do
b[i]: =a[i];
for i: =k2+1 to 20 do
j: =k2;
for i: =k1 to k2 do
j: =j-1;
наверняка двоичные числа надо только определить где ноль а где один
наверно о - one
10101
10110
10111
11000
11001
вроде как сходится, продолжаем
11010
11011
11100
11101
11110
11111
обратную замену самостоятельно
обьем вини изначальный
прирост от меда
прирост от сгущенки
время реализации прироста
время худенья
радиус дверей
Популярные вопросы