Var
n,i:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
WriteLn('1)');
S:=0;
i:=2;
While i<=n do
Begin
S:=S+i*i;
i:=i+2;
End;
WriteLn('S = ',S);
WriteLn('2)');
Write(n);
i:=n div 2;
While i > 0 do
Begin
if n mod i = 0 then Write(' ',i);
i:=i-1
End;
End.
'Microsoft QBASIC 1.0
DATA 23.45,51.8,-6.3,18,-11.9,37.2,-4,19,31.4,-11.2
DIM m(1 TO 10) AS DOUBLE
CLS
k = 0
FOR i = 1 TO 10
READ m(i)
PRINT m(i); ' ';
IF m(i) > 0 THEN k = k + 1
NEXT i
PRINT
REDIM n(1 TO k)
j = 0
FOR i = 1 TO 10
IF m(i) > 0 THEN
j = j + 1
n(j) = SQR(m(i))
PRINT n(j); ' '
END IF
NEXT i
PRINT
<u><em>Тестовое решение</em></u>
23.45 51.8 -6.3 18 -11.9 37.2 -4 19 31.4 -11.2
4.84252 7.197222 4.24264 6.09918 4.358899 5.60357
Var a,b,i,r,s:longint;
begin
readln(a,b);
s:=0;
if a>b then begin r:=a;a:=b;b:=r;end;
for i:=a to b do
s:=s+i;
writeln(s);
end.
Если было число ABC = X, то после деления на 10 стало AB, а после приписывания слева CAB = N. Для получения из N числа X просто переставляем первую цифру в конец.
var
N: integer;
begin
readln(N);
write(10 * (N mod 100) + (N div 100))
end.
Var x,y : real;
function F(x:real):real;
begin
if x>0 thenF:=(x*x*x-(5*x))/18
else
F:=(x*x-(6*x))+15;
end;
begin
read(x);
y:=F(x);
Writeln(y);
end.