<em>var a, b, c, i, n :integer;</em>
<em> s :array [1..10000] of longint;</em>
<em>begin</em>
<em> read (n);</em>
<em> for i:=1 to n do</em>
<em> s[i]:=i*i*i;</em>
<em> s[3]:=n*n;</em>
<em> s[5]:=0;</em>
<em> s[8]:=0;</em>
<em> for i:=6 to n do</em>
<em> s[i-1]:=s[i];</em>
<em> for i:=8 to n do</em>
<em> s[i-1]:=s[i];</em>
<em> for i:=1 to n-2 do</em>
<em> write (s[i], ' ');</em>
<span><em>end.</em></span>
Program help;
Var k, l,x,y: integer;
Begin
readln(k,l);
readln (x,y);
if y>k*x+l then
write ('точка лежит над прямой')
else
if y<k*x+l then
write ('точка лежит под прямой')
else
write ('точка лежит на прямой');
End.
5 надеюсь что язык запросов SQL, а не какой то экзотический)
а) select * from p where время отправления<=06:00:00
b) select * from p where стоянка>30
в) select * from p where откуда='Свердловск'
г) select * from p where куда<>'Москва'
6
а) 73, 339, 285, 49Н,
б) 73, 285, 49Н, 265Н,
в) 45
г) 73, 265Н, 45
На Java
http://pastebin.com/SbfSZLFK
ввод - 1234567890123456
вывод - 66
<span>var n, sum: integer;
begin
readln(n);
sum := 0;
while n > 0 do begin
sum := sum + n mod 10;
n := n div 10
end;
writeln(sum);
end.</span>
Program z1;
var d1,d2,a :integer;
r1,r2:real;
begin
writeln('Введите диаметры');
readln(d1,d2);
r1:=d1/2;
r2:=d2/2;
if r1>r2 then
p:=pi*sqr(r1)-pi*sqr(r2);
writeln('первая окружность-внешняя, p=',p:8:3);
else
p:=pi*sqr(r2)-pi*sqr(r1);
writeln('вторая окружность-внешняя, p=',p:8:3);
end.