1)Алгоритм в паскале, если все скорости известны
program avto;var a,b,c,d:real;beginwriteln ('Введите 3 скорости автомобиля');read (a,b,c);d:=(a+b+c)/3;write ('Средняя скорость автомобиля:', d);end.
A1=2
A2=4
A3=5
A4=3
Я бы сказал какая это таблица, но там не видно все
Просто подставь и сразу будет видно какая таблица
Компьютер
Монитор
системный блок
клавиатура
Счастье буз ума - дырявая сума
всякое семя знает своё время
Var
n, i, z: Integer;
begin
Write('n=');
ReadLn(n);
if n = 0 then
WriteLn('z=-1')
else if (n < 0) then
WriteLn('Введено отрицательное число')
else
begin
z := 1;
for i := 1 to n do
z := z * 1 * (3 * i - 1);
WriteLn('z=', z);
end;
end.
А, наверное, его можно обозвать ТЭГом:
<BODY>
<P>
<HTML> и т. д