<span>В прямом - действие выполняется сразу после ввода командной строки. В программном - после компиляции, сборки всех действий автоматически - все описанные действия попорядку</span>
var a:array[1..3,1..4]of integer;
j,i,sum:integer;
begin
for i:=1 to 3 do for j:=1 to 4 do readln(a[i,j]);
for i:=1 to 3 do sum:=sum+a[i,4];
writeln(sum);
end.
Ответ:
program pr1;
uses crt;
var
i,n:Integer;
s:Real;
function Pow(x:Integer; y:Integer) : Integer;
var
j,s1:Integer;
begin
s1:=1;
for j:=1 to y do s1:=s1*x;
Pow:=s1;
end;
begin
s:=1;
Writeln('Введите колличество аргументов типа 1/2^n.');
Write('n=');
ReadLn(n);
Write('S=1');
For i:=1 to n do
begin
s:=s+((Pow(-1,i))*(1/(Pow(2,i))));
Write('+(',Pow(-1,i),'*1/',(Pow(2,i)),')');
end;
Write('=',s);
readln;
end.
Объяснение:
Через цикл нужное количество раз прибавляешь к S 1/(2^i ) умноженное на -1^i, Что бы менять знак.
Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] in ['0'..'9']) then write(a[i]);
<span>end.
2) Тут лучше: на входе строка, а берётся часть между 1 и 2 пробелами, ответ уже есть под задачей х)
var a, b: string;
i: integer;
w: boolean;
begin
readln(a);
for i := 1 to length(a) do
begin
if ((a[i] = ' ')) then
if (length(b) = 0) then w := true else w:=false;
if (w) then b := b + a[i];
end;
writeln(b);
<span>end.
3)
var s: string;
i: integer;
begin
readln(s);
for i := 1 to length(s) do
if s[i] in ['A', 'E', 'I', 'O', 'Y', 'a', 'e', 'i', 'o', 'y']
then write(s[i]);
<span>end.</span></span></span>