Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end
Begin
m:=1;
k:=1;
read(n);
i:=1;
while i<>n do begin
k:=k+i;
m:=m*i;
i:=i+1;
end;
write(k,' ',m);
end.
Переменные, думаю, сами опишете)
1)а - из учебника.
2) 2 Тб = 2×1024 Гб = 2×1024×1024 Мб - ответ<span>b
3)</span>7 мбит = 7×1000 Кбит = 7000кбит
4) 136/8 = 17
Uses crt;
const n=3;
m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(15);
write(a[i,j]:3);
end;
end.
А учебник какой? Скажи тогда решу