С минусом: 12 10 8 6 4 2 то есть 6 четных значений
И с плюсом тоже 6 четный значений
Всего 12 четных
что не опнятно именно? как работает блок-схема?
если в блок-схеме дело, то объясню. Это цикл While(пока). Пишу блок-схему на русском.
Начало
Ввод х, у
Пока х=у, если да то вывод Х и уход на конец.
если нет, идёт дальше условный оператор if(если).
Если x>y если да, то ячейке х присвой значение х-у, если нет, то ячейке у присвой значение у-х. Дальше программа уходит на повтор.
Объясню на примере чисел.
вводим данные х=10, у=15;
10 не равно 15, значит идём на условный оператор if
10 < 15, ячейке У присваиваем значение 15-10
на экране 5.
на всякий могу написать программу.
Program af;
uses crt;
var x,y:integer;
begin
clrscr;
readln(x,y;
while x=y do begin
if x>y then x:=x-y
else Y:=Y-X;
end;
writeln(x);
readln;
end.
Var
l,s,x: real;
begin
writeln('Введите площадь и глубину озера:');
read(s,l);
x:=0.0000001/(s*l);
writeln('Соли в наперстке объемом 2см^3: ',x,' г');
end.
<span>Держите.
Var
s:real;
i,n:integer;
Begin
Writeln('Введите количество лет и сумму Вашего вклада');
Readln(n,s);
For i:=1 to n do
s:=s+s*0.03;
Write(s);
Readln;
End.
</span>___________
<span>Var s:real;
i,n:integer;
Begin
Writeln('</span>Введите количество лет и сумму Вашего вклада'<span>);
Readln(n,s);
i:=1;
Repeat
s:=s+s*0.03;
inc(i);
Until i>n;
Write(s);
Readln;
end.</span>
18>26 (нет) 18>10(да) а:=18*3=54 а:=54+10=64
ответ 64