С использованием?)
var
x,y,z:integer;
begin
write('x= '); readln(x);
write('y= '); readln(y);
z:=x;
x:=y;
y:=z;
writeln;
writeln('x= ',x); write('y= ',y);
readln;
end.
Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.
1. var s, i: integer;
begin
for i := 1 to 100 do
s := s + i;
writeln('s=', s);
end.
2. var i, r: integer;
begin
writeln('Таблица умножения на 3');
for i := 1 to 10 do
begin
r := i * 3;
writeln(i, ' * 3 = ', r);
end;
readln;
end.
Электронная таблица- программное средство для обработки табличных данных, различных операций и расчетов. Наименьшей структурной единицей этой таблицы является ячейка. В диапазон ячеек от A1 до B3 входит 6 ячеек: A1, A2, A3, B1, B2, B3, то есть ответ №1.