var i, j, k, p: integer; a, b: array[1..10] of integer;
begin k : = 0; for i : = 1 to 10 do begin a[i] : = random(20) - 10; write(a[i]: 3); if a[i] > 0 then begin k : = k + 1; b[k] : = a[i]; end; end; for i : = 1 to k - 1 do for j : = i + 1 to k do if b[i] > b[j] then begin p : = b[i]; b[i] : = b[j]; b[j] : = p; end; writeln; for i : = 1 to k do write(b[i]: 3); end.
Ответ дал: Гость
есть три цифры 1,2,3 которые могут стоять на 4-х местах
например 1111 каждую цифру можно использовать повторно
значит всего получится 3*3*3*3=81 число
Ответ дал: Гость
var
s,s1: real;
k: integer;
begin
s: =10;
k: =1;
while s< 20 do
begin
s: =s*1.1;
k: =k+1;
end;
writeln('в ', k,' день он пробежит 20 км');
s: =10;
s1: =10;
k: =1;
while s< 200 do
begin
s: =s+s1*1.1;
s1: =s1*1.1;
k: =k+1;
end;
writeln('в ', k,' день суммарный пробег превысит 200 км');
Популярные вопросы