Var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.
Пример:
a = 4
d = 5
S = 12
uses crt;
var s: string;
begin
writeln('Напишите слово');
readln(s);
writeln(length(s) ,' символов');
writeln(s[1] ,' первый символ ', s[2] ,' второй символ ', s[length(s)] ,' последний символ');
if (s[length(s)] = s[1]) then
begin
writeln('совпадают');
end
else writeln('не совпадают');
if (length(s) mod 2 = 0) then
begin
writeln('четное кол-во');
end
else writeln('не четное');
end.
const
n = 5;
m = 5;
var
a, b: array[1..n, 1..m] of integer;
c: array[1..n, 1..m] of real;
i, j, s, count: integer;
begin
for i := 1 to n do
for j := 1 to m do begin
a[i, j] := random(20);
b[i, j] := random(20);
s := s + a[i, j] + b[i, j];
inc(count);
end;
writeln('Ср. арифметическое эл.: ', s / count);
for i := 1 to n do
for j := 1 to m do begin
c[i, j] := s / count;
write(c[i, j], ' ');
if(j mod m = 0) then writeln;
end;
end.
Всего символов 4193000 + 1304 =<span>
4194304.
</span>4194304 * 8 = <span>33554432 (бит)
</span>33554432 / 1000000 = <span>33,554432 (Мбит) если приставка мега используется в смысле 1 000 000.
Если, "компьютерные" мега, то кратность (2^10)^2=1024^2=</span>
<span>
1048576.
</span>33554432 / <span>1048576 = 32 (Мбит) </span>