Блок-схема - в прилагаемом файле. Программа на паскале:
var a,b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if a<>b
then begin a:=a+b; b:=a; end
else begin a:=0; b:=0; end;
writeln('a = ',a,' b = ',b);
end.
Пример:
a = 2
b = 5
a = 7 b = 7
Вверх вниз вправо вправо вниз вниз вправо верх лево право
1) Маша
2) Молодец
3) Молоток
4ое у меня не прогружается
В MS Excel по умолчанию числа выравниваются по правому краю, текст по левому
Но при ручном форматировании можно выравнивать как угодно
const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
write('Введите число: ');
readln (x);
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(9)+1;
write(a[i]:2,' ')
end;
writeln;
for i:=1 to n do
if a[i]=x then writeln('Массив содержит число ',x,' номер этого элемента ',i)
end.