Var n,i,k,s1,s2:integer;
begin
write('n='); readln(n);
s1:=n; s2:=0;
for i:=1 to n-1 do
begin
write('k',i,'='); readln(k);
s1:=s1+i; s2:=s2+k;
end;
writeln('Потерялась карточка ',s1-s2);
<span>end.
Пример:
n=5
k1=1
k2=3
k3=4
k4=5
<span>Потерялась карточка 2
</span></span><span><span>
</span></span>
Readln как и read вводит переменную командой read (x); также и readln (x); но перед этим надо в var внести переменную x
Не очень сложная блок-схема.
Я думаю что на рисунке 3 что-то вроде.
var a1:integer;var d:integer;var i:integer;
begin
Readln(a1);
Readln(d);
for i := 1 to 10 do
begin
a:= a + d;
Writeln(a);
end;
end;
//1
for i := -3 to 3 do
Read(a[i]);
//2
Randomize;
for i := -3 to 3 do
a[i] := Random(101) - 50;
//3
for i := -3 to 3 do
a[i] := 5 * i;
//4
Randomize;
for i := -3 to 3 do
a[i] := Random(41) + 150