VB.
Dim i As Integer
Dim Massiv() As Integer
For i = 0 To Massiv.Length - 1
Massiv(i) += 4
<span>Next</span>
Ответ:
32гб = 32000мб
1 файл = 100 листов
32000мб : 100=320см = 3.2м
Я думаю, так
Var
X,b:real;
Begin
WriteLn('y=7x/(3x-12)');
Write('X = ');ReadLn(X);
WriteLn('Y = ',7*X/(3*X-12));
WriteLn;
WriteLn('y=4x/(2,6-b)');
Write('X = ');ReadLn(X);
Write('b = ');ReadLn(b);
WriteLn('Y = ',4*X/(2.6-b));
End.
Var a, b: integer;
begin
Writeln('Введите два числа');
Readln(a, b);
repeat
if a > b then a := a Mod b else
b := b Mod a;
until (a = 0) Or (b = 0);
writeln('НОД = ', a + b);
<span>end.</span>
Var a:array [1..10] of integer;
j,sum:integer;
begin
sum:=0;
randomize;
for j:=1 to 10 do
begin
a[j]:=random(11)+20;
write (a[j],' ');
sum:=sum+a[j];
end;
writeln;
writeln ('Summa: ',sum);
readln;
end.