Я хочу чтоб школа была стеклянной, а планшеты место тетрадей.
<em>// PascalABC.NET 3.2, сборка 1336 от 14.11.2016</em>
begin
Writeln(Range(5,109,4).Sum)
end.
Результат
1539
Пароварка,теплоход, паровоз .
Var
<span> d1, v1: integer; </span>
<span> d2, p2, v2, w: integer; </span>
t1, t2: real;
<span>begin </span>
<span> readln(d1,v1); </span>
<span> readln(d2,p2,v2,w); </span>
<span> t1:= d1 / v1; </span>
t2:= (d2 - p2) / v2 + (p2 / w);
<span> if (t1 < t2) then </span>
<span> write('1') </span>
<span> else if (t2 < t1) then </span>
<span> write('2') </span>
<span> else </span>
write('0');
<span>end.</span>
Var
a:real;
Begin
Write('Сторона равностороннего треугольника: ');ReadLn(a);
WriteLn('P = ',a*3);
WriteLn('S = ',a*a);
End.