..........
3+6+9+12+15 = 45
program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
Хмм... Ну...
0 = треуг треуг треуг
1 = треуг треуг квадрат
2 = треуг квадрат треуг
3 = треуг квадрат квадрат
4 = квадрат треуг треуг
5 = квадрат треуг квадрат
6 = квадрат квадрат квадрат
7 = треуг треуг круг
8 = треуг круг треуг
9 = треуг круг круг
10 = круг треуг треуг
11 = круг треуг круг
12 = круг круг круг
13 = квадрат квадрат круг
14 = квадрат круг круг
15 = круг квадрат круг
Фух....
Так что ли?
var
a:integer;
b:longint;
begin
a:=3*3;
b:=3*3;
writeln('integer = ',a);
writeln('longint = ',b);
<span>end.</span>
Sub abc()
Dim i As Integer, s As Integer
s = 0
For i = -5 To 10
s = s + i
Next i
MsgBox s
End Sub