program p;
var s,a,b,c:string;
begin
s:='геометрические фигуры';
writeln('введите названия трёх геометрических фигур');
read(a,b,c);
writeln(s,': ',a,', ',b,' и ',c);
end.
//Общее сопротивление сети:
// 1/R = 1/r1 + 1/r2
// 1/R = (r2+r1)/(r2*r1)
// R = r2*r1 / (r2 + r1)
//Закон Ома для участка цепи:
// I = U/R
var
r1,r2,u : integer;
R,I : real;
begin
writeln ('Введите значения сопротивления (r1 r2)');
readln (r1,r2);
writeln ('Укажите напряжение на концах цепи (u)');
readln (u);
R := r2*r1 / (r2 + r1);
I := U/R;
//Фактически можно не использовать переменную R
//А вставить выражение сразу
// I := U/( r2*r1 / (r2 + r1) );
writeln ('Сила тока на участке = ',I);<span>
end.</span>
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
fs=(string,string);
begin
var L:=new List<fs>;
repeat
var aw:=ReadlnString('>').ToWords;
if aw.Length=0 then break;
L.Add((aw[1],aw[0]))
until false;
var a:=L.OrderBy(t->t[0]);
var i:=1;
foreach var x in a do begin
Writeln(i:4,' ',x[1],' ',x[0]);
i+=1
end
end.
<u>Пример</u>
> J.X. Smith
> B.A. Weiter
> A.C. Johnes
>
1 A.C. Johnes
2 J.X. Smith
3 B.A. Weiter