Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.
Var n:integer;
begin
write('n = ');
readln(n);
writeln('цифры числа:');
writeln(n div 10);
writeln(n mod 10);
end.
Пример:
n = 38
цифры числа:
3
8
Попробуйте такое:
uses graphABC;
var
x, y: array [1 .. 100] of integer;
mI, mJ, mK, maxR, R, i, j, k: integer;
begin
randomize;
for i := 1 to 100 do
begin
x[i] := random(600) + 10;
y[i] := random(360) + 10;
circle(x[i], y[i], 2);
end;
maxR := 0;
for i := 1 to 100 do
for j := 2 to 99 do
for k := 3 to 98 do
begin
R := abs((x[i]-x[k])*(y[j]-y[k])-(x[j]-x[k])*(y[i]-y[k])div 2);
if R > maxR then
begin
maxR := R;
if R > mI then mI := i;
if R > mJ then mJ := j;
if R > mK then mK := k;
end;
end;
setpencolor(clred);
line(x[mI], y[mI], x[mJ], y[mJ]);
line(x[mJ], y[mJ], x[mK], y[mK]);
line(x[mK], y[mK], x[mI], y[mI]);
end.
Объяснение:
Ошибочка - площадь квадрата через диагональ равна:
S = d²/2
Дано:
d = В2 = 4
S = В3 =В2*В2/2
a = В4 =КОРЕНЬ(В3)
Возведение в степень можно
S= B5 =СТЕПЕНЬ(В3;2)/2 - это квадрат (и разделен на 2).
а = В6 = СТЕПЕНЬ(В5;0,5) - это корень