Var
p:real;
k:integer;
begin
Write('Грузоподъемность судна: '); Read(p);
Write('Количество судов: '); Read(k);
Writeln('Грузоподъемность флотилии составит ',p*k)
end.
<u>Пример</u>
Грузоподъемность судна: 12000
Количество судов: 7
Грузоподъемность флотилии составит 84000
Самая быстрая дорога: из a в d а потом в c
1)60/40=1.5(час)
2)20/20=1 (час)
3)1.5+1=2.5(час)
Ответ:2.5 часов.
З. Ы. Только по грунт. дороге требуется 3 часа(60 км / 20 км/ч = 3 часа)
Это случано не cisco ?1. К прикладному относится <u>В) 1С:Бухгалтерия</u> т.к. эта программа предназначена для работы с таблицами и текстом - не является системной.
2.Называют <u>электронными</u>.
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.