Const n=10;
var x : array[1..n] of integer;
i : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(31)-30;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
if x[i] mod 2 <>0 then x[i]:=x[i]*x[i];
writeln('Измененный массив:');
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.</span>
1.
sec = int(input())
min = sec // 60
sec = sec - min*60
print(min," мин ",sec," сек.")
2.
x = int(input())
a = x //1000
b = x//100 - a*10
c = x//10 - a*100 - b*10
d = x - a*1000 - b*100 - c*10
print("сумма:"a+b+c+d)
print("произведение:"a*b*c*d)
3.
x = int(input())
b = x//100
c = x//10 - b*10
d = x - b*100 - c*10
y = d*100 + c*10 + b
Вот так гораздо проще.
var s:string;
begin
readln(s);
writeln(length(s));
end.
Uses crt;
var a,b:real;
num:integer;
begin
writeln('Введите два числа');
readln(a,b);
writeln('Выберите операцию: 1.сложение, 2.умножение');
readln(num);
clrscr;
case num of
1:writeln(a,'+',b,'=',a+b);
2:writeln(a,'*',b,'=',a*b);
end;
end.
Каждый символ: 8 бит = 1 байт = 1/1024 Мбайт = 1 / (1024 * 1024) (Гб).