[klimmilk]

Хм, телепорт?
Синие квадратики? (мог использовать лего)
Мячики в коце концов?

Твой рейтинг упал

Благодаря HlN, мы собрали 0 сыра !

А отцу мышонка:
Ты остался без сына!  ^ _ ^

[Никитон]

Мышь должна была вж

Ты засунул литл мауса в буткамп? Ты... ты очень зол.

[Double_agent]

Литл Маус в буткампе с ловушкой убивающей за три секунды? Ты зол

[myrad]

вы все циничны

[Double_agent]

вы все циничны

Ты так говоришь, будто это что-то плохое ©

[HlN]

Литл Маус в буткампе с ловушкой убивающей за три секунды? Ты зол

Он сам туда перешел

Хм, телепорт?
Синие квадратики? (мог использовать лего)
Мячики в коце концов?

Нету
Нету
Нету

Твой рейтинг упал

Благодаря HlN, мы собрали 0 сыра !

Я не шаман: это буткамп.

[myrad]

Ты так говоришь, будто это что-то плохое ©

ИМХО , это плохо

[HlN]

Ты засунул литл мауса в буткамп? Ты... ты очень зол.

Он сам туда перешел
Добавлено через: 31 сек.

ИМХО , это плохо

Для кого?
Для мыша да
А для кота нет
А другим мышам наплевать
Добавлено через: 1 мин. 7 сек.Мораль: мышам нубам не следует ходить в буткамп

[myrad]

сори, цитату забыл

[HlN]

сори, цитату забыл

Для кого?
Для мыша да
А для кота нет
А другим мышам наплевать

[IIIr@m]

Кота в сканер!!111

[HlN]

Кот играет мышью
Добавлено через: 6 мин. 40 сек.

Код: [Выделить]

uses crt;
var
m, L, R, S, D, P:array[1..5] of real;
st_10, i, j: byte;
begin
clrscr;
write('м, кг: ');
for i:=1 to 5 do
 readln(m[i]);
write('R, Ом: ');
for i:=1 to 5 do
 readln(R[i]);
write('Плотность, кг/м^3: ');
for i:=1 to 5 do
 readln(P[i]);
write('Сопротивление, Ом*м: ');
{i:=wherex+3;}
for i:=1 to 5 do
 readln(D[i]);
{gotoxy(i, wherey-1);
write('*10^');
readln(st_10);}
st_10:=8;
for i:=1 to 5 do
 for j:=1 to st_10{*(-1)} do
  D[i]:=D[i]/10;
for i:=1 to 5 do
begin
 L[i]:=sqrt((m[i]*R[i])/(P[i]*D[i]));
 S[i]:=(m[i]/(P[i]*L[i]))*1000000;
end;
for i:=1 to 5 do
 begin
  if i=1 then readln;
  writeln(L[i]:4:2);
  writeln(S[i]:4:2);
  readln;
 end;
readln;
end.
Интересно, это примут в качестве решения задачи по физике? 

[klimmilk]

Ололо, физика совсем никак не идет? А я в воскресенье на окружную еду

[HlN]

Ололо, физика совсем никак не идет? А я в воскресенье на окружную еду

Да не, мне было лень считать, и я написал программу

[Double_agent]

А у нас сейчас все связано с  огнем или теплом. Теплопроводность, горение, удельная теплоемкость и т. п. Не люблю физику