Если правильно поняла задачу, на паскале это выглядит так:
var n,b,i,a,c:integer;
begin
writeln('input n'); readln(n);
writeln('input a'); readln(a);
c:=a;
for i:=1 to n do
begin
writeln('input b',i);
readln(b);
c:=c-b;
end;
writeln('c=',c);
<span>end.
Алгоритм и блок-схема по имеющейся программе делаются элементарно. </span>
Var
n: int64;
function f(n: int64): int64;
begin
if(n > 0) then f := f(n div 10) + (n mod 10);
end;
begin
readln(n);
write(f(n));
end.
Ответ:
1.
uses Robot;
begin
Task('w3');
while wallfromdown do right
end.
2.
uses Robot;
begin
Task('w8');
while wallfromdown do right;
left;
while wallfromdown do
begin
paint;
left
end
end.
Int A[6];
bool B = false;
for(int i = 0; i < sizeof(A); i++) {
A[i] = random(6);
if(i > 0 && A[i-1] == A[i])
B = true;
}
cout << "Массив: " << A[0] << A[1] << A[2] << A[3] << A[4] << A[5] << endl;
if(B == true)
cout << "Есть" << endl;
else
cout << "Нет" << endl;