От станции до озера s км. туристы, напрявляясь от станции к озеру, полтора часа шли пешком со скоростью а км, а затем сели на попутную машину, которая ехала со скрость. в км/ч. за какое время туристы добрались до озера?
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
uses NumLibABC;
begin var (num,denom):=ReadInteger2('Числитель и знаменатель 1-й дроби:'); var f1:=Frc(num,denom); (num,denom):=ReadInteger2('Числитель и знаменатель 2-й дроби:'); var f2:=Frc(num,denom); f1.Print; Write('* '); f2.Print; Write('= '); (f1*f2).Print end.
Примеры Числитель и знаменатель 1-й дроби: 4 9 Числитель и знаменатель 2-й дроби: 3 8 4/9 * 3/8 = 1/6
Числитель и знаменатель 1-й дроби: 32432424 10213133 Числитель и знаменатель 2-й дроби: 23123 12313123 32432424/10213133 * 23123/12313123 = 749934940152/125755562844359
Числитель и знаменатель 1-й дроби: 15 2 Числитель и знаменатель 2-й дроби: 8 15 15/2 * 8/15 = 4
Var a : array [1..5, 1..5] of integer; i, j : integer; begin randomize; for i := 1 to 5 do begin for j := 1 to 5 do begin a[i, j] := random (1000); write (a[i, j], ' '); end; writeln; end; for i := 1 to 5 do for j := 1 to 5 do if i > j then a[i, j] := 1 else if j > i then a[i, j] := 0; for i := 1 to 5 do begin for j := 1 to 5 do write (a[i, j], ' '); writeln; end; end.
var a : array [1..4, 1..5] of integer; i, j, m, c : integer; begin randomize; m := 1000; for i := 1 to 4 do begin for j := 1 to 5 do begin a[i, j] := random (1000); if a[i, j] < m then m := a[i, j]; write (a[i, j], ' '); end; writeln; end; c := 0; for i := 1 to 4 do for j := 1 to 5 do if a[i, j] = m then c := c + 1; writeln (m, ' ', c); end.
var a : array [1..4, 1..4] of integer; i, j, p : integer; begin randomize; for i := 1 to 4 do begin for j := 1 to 4 do begin a[i, j] := random (10); write (a[i, j], ' '); end; writeln; end; p := 1; for i := 1 to 4 do begin if a[i, i] <> 0 then p := p * a[i, i]; if a[i, 5 - i] <> 0 then p := p * a[i, 5 - i]; end; writeln (p); end.
Опечатка: ...со скоростью А км/ч...
Программа считывает S, A, B.
Язык программирования: Паскаль.
var
S, A, B : integer;
begin
readln (S);
readln (A);
readln (B);
writeln ((S - 1.5 * A) / B + 1.5, ' ч');
end.