1)сначала суток прошло n секунд, определить: сколько полных часов прошло с начала суток, сколько полных минут прошло с начала текущего часа, сколько полных секунд прошло сначала текущей минуты. 2)производительность труда при выполнении некоторой работы повысилась на 40%. на сколько процентов сократилось время необходимое для выполнения этой работы. 3)велосипедист должен попасть в место назначения к определённому сроку. известно, что если он поедет со скоростью 15 км в час, то приедет на час раньше, а если скорость будет 10 км в час, то опоздает на 1 час. с какой скоростью должен ехать велосипедист, чтобы приехать вовремя? решите в паскале без описания
Ответы
1) var sec: longint; begin write('sec = '); readln(sec); // assert((n > = 0) and (n < = 24 * 60 * 60), 'не верный ввод'); writeln('time: ', sec div 3600, ': ', sec div 60 mod 60, ': ', sec mod 60); end. 2) const v = 1; begin writeln(100 - 100 * (1 / ((1 + 0.4) * v)) / (1 / v)); end. 3) а это просто система s/15 = t-1 s/10 = t+1 отсюда t = 5, s= 60 v = s/t = 60/5 = 12
Var a: array[1..15] of integer; i, sum, count: integer; begin for i: =1 to 15 do readln(a[i]); sum : = 0; count : = 0; for i: =1 to 15 do if a[i] > 0 then begin sum : = sum + a[i]; inc(count); end; writeln(sum, ' ', count); end.
Var i,k,n,m: integer; begin write('n = '); readln(n); m: =round(sqrt(n)); i: =2; k: =1; repeat if (n mod i=0) then begin if i< > k then begin write(i,' '); k: =i; end; n: =n div i; m: =round(sqrt(n)); i: =1; end; i: =i+1; until i> m; if k< > n then writeln(n); end. n = 43021568 2 163 1031n = 625 5 n = 189756328 2 67 354023
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
