program test;
var a, b: integer;
begin
write('Enter A: ');
readln(a);
write('Enter B: ');
readln(b);
writeln('Area = ', a*b);
readln;
end.
Var n: integer;
begin
writeln('Введите число:');
readln(n);
if n mod 2 =0 then writeln('Это четное число')
else writeln('Это нечетное число')
end.
var
m:integer;
n:real;
begin
n:=120;
m:=0;
while n<150 do
begin
n:=1.02*n;
m:=m+1;
end;
writeln('Ответ: ',m)
end.
Const nx = 20;mx = 20; var A:Array[1..nx,1..nx] of real; i,j,n,m:integer; sum:real; begin write('Введите размер матрицы'); Read(n); for i:=1 to n do begin for j:=1 to n do begin A[i,j]:= random()*100 -50; write(A[i,j]:9:4); end; writeln; end; writeln; writeln;
for i:=1 to n do begin for j:=1 to n do beginif i < j then begin write(A[i,j]:9:4); sum:=sum + A[i,j]; end else write(' ':9); end; writeln; end; write('Сумма = ',sum);<span> end.</span>
1 символ = 1 бит ,1 байт =8 битам, 1 килобайт =1024 байтам
2048=16777216