Var x1,y1,x2,y2,v1,v2: real; begin writeln("введите количество метров пробегания жирафа"); read(y1); writeln("введите, за сколько секунд он должен пробежать"); read(x1); writeln("введите количество метров пробегания зайца"); read(y2); writeln("введите, за сколько секунд он должен пробежать"); read(x2); v1: =y1/x1; v2: =y2/x2; if v1> v2 then begin writeln("жираф чемпион"); end else if v1< v2 then begin writeln("заяц чемпион"); end else begin writeln(" победила дружба); end; end;
dmitzu8594
10.09.2020
//pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) const n = 10; var a: array[1..n] of integer; i,j: integer; begin // заполним массив сл. числами for i: =1 to n do begin a[i]: =random(0,99); write(a[i]: 4); end; writeln; //сортировка массива по убыванию последней цифры. for i : = 1 to n-1 do for j : = 1 to n-i do if (a[j] mod 10) > (a[j+1]mod 10) then swap(a[j],a[j+1]); writeln('отсортированный массив : '); for i: =1 to n do write(a[i]: 4); end. тестовое решение: 14 60 69 6 10 77 66 67 44 84 отсортированный массив : 60 10 14 44 84 6 66 77 67 69
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
"вы выходите на следующей остановке? " - спросили человека в автобусе. "нет" - ответил он. сколько информации содержит ответ?