Var s:real;
n,i:integer;
begin
s:=0;
write ('Введите n: ');
readln(n);
for i:=1 to n do s:=s+(1/i);
writeln ('S = ',s:0:2);
end.
Sub aaa()
a = InputBox("A=")
b = InputBox("B=")
c = InputBox("C=")
x = InputBox("x=")
z = x ^ 2 + Abs(b * x - 3 * c) / Log(x ^ 2 + b * c + a)
Cells(1, 1) = z
End Sub
Для хранения алфавита испосльзуеься 2 байта
Потому 4*64*128*2=65536
1кб
Жёсткий диск вроде)))))))))))
<span>program mas;
uses crt;
var a, b, c, k:integer;
begin
writeln('Введите три числа');
readln(a);
</span>readln(b);<span>
</span>readln(c);<span> </span><span>
for i:=1 to 3 do begin
if i>0 then k:=k+1;
end;
writeln('Положительных чисел',k);
readln;
end.
Вроде так.
Точно не знаю, давно на этом языке не кодил</span>