Var
<span>s1,s2: string; </span>
<span>begin </span>
<span>Write( 's1: ' ); </span>
<span>ReadLn(s1); </span>
<span>Write( 's2: ' ); </span>
<span>ReadLn(s2); </span>
<span>if s1[ 1 ] = s2[ length(s2) ] then </span>
<span>write( 'Da' ) else write( 'Net' ); </span>
<span>ReadLn; </span>
<span>end. </span>
Var
B,X:real;
Begin
Write('B = ');ReadLn(B);
Write('X = ');ReadLn(X);
Write('Итоговая стоимость = ',X*B*0.8,' руб.')
End.
<em>MS DOS QBasic 1.0</em>
RANDOMIZE TIMER
CONST n = 9
DIM a(1 TO n) AS INTEGER
CLS
FOR i = 1 TO n
a(i) = INT(99 * RND)
PRINT a(i);
NEXT i
PRINT
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
IF a(i) < a(j) THEN
t = a(i)
a(i) = a(j)
a(j) = t
END IF
NEXT j
NEXT i
FOR i = 1 TO n
PRINT a(i);
NEXT i
<u>Пример</u>
85 21 7 21 29 45 98 70 23
98 85 70 45 29 23 21 21 7
B) output the contents of the curent directory.........