Четверо друзей путешествуют на трех видах транспорта: поезде, самолете и пароходе. Николай проплыл 150 км на пароходе, проехал 140 км на поезде и пролетел 1100 км на самолете. Василий проплыл на пароходе 200 км, проехал на поезде 220 км и пролетел на самолете 1160 км. Анатолий пролетел на самолете 1200 км, проехал поездом 110 км и проплыл на пароходе 125 км. Мария проехала на поезде 130 км, пролетела на самолете 1500 км и проплыла на пароходе 160 км. Построить на основе вышеперечисленных данных электронную таблицу.
 Добавить к таблице столбец, в котором будет отображаться общее количество
километров, которое проехал каждый из ребят.
 Вычислить общее количество километров, которое ребята проехали на поезде,
пролетели на самолете и проплыли на пароходе (на каждом виде транспорта по
отдельности).
 Вычислить суммарное количество километров всех друзей.
 Определить максимальное и минимальное количество километров, пройденных
друзьями по всем видам транспорта.
 Определить среднее количество километров по всем видам транспорта.

ответ разместил:

паскаль

откомпилирован в: pascal abc

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.

ответ разместил:

не знаю паскаль, знаю c++ : )

{  

int a, b;

//вводим значения в a и в b (в футах)

cin > > a > > b;

b = b*45;

if (a> b) cout < < "в км больше";

else cout > > "в футах больше";  

}  

{  

// тут важен дробный тип  

dooble a, b;

//вводим значения в a и в b (м/c)

cin > > a > > b;

a = a: 3.6;

if (a> b) cout < < "в км/ч больше";

else cout > > "в м/с больше";  

}

ну а дальше надо уже все по формулам смотреть.  

{

doouble a,b;  

//вводим значения в a и в b стороны

cin > > a > > b;

a=a*a*3.14;

b=b*b;

if(a> b) cout < < "площадь круга больше";

else cout < < "площадь квадрата больше";  

}  

4. не знаю как такое делать, что значит уместиться ли круг в квадрате? уместится если радиус его меньше чем половина стороны.

5.

{

 doouble a,b,c,d;

 cin > > a > > b > > c > > d; // вводим объем и массу;

 a = a/b;

c = c/d;

if(a> c) cout < < "тело 1 имеет плотность больше чем тело 2";

else cout < < "тело 2 имеет большую плотность";  

}  

6. не знаю. но тоже как-то через форумулы.  

ответ разместил: Гость

бор (сосновый бор к примеру)

бордюр

набор

самым главным считается объем

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)