Var a,b,a1,b1:real;
begin
readln(a,b);
if a = b then writeln('Числа равны')
else
if a>b then begin
a1:=2*a*b; b1:=(a+b)/2;
a:=a1;b:=b1;
writeln('a = ',a,' b = ',b)
end
else begin
b1:=2*a*b; a1:=(a+b)/2;
a:=a1;b:=b1;
writeln('a = ',a,' b = ',b);
end;
end.
Сверху вниз(первое значение 2 в нулевой степени, последнее - 2 в 10 степени):
1
2
4
8
16
32
64
128
256
512
1024
Int x = 100; //инициализация первого 3-х значного
int sum=0;//будущая сумма
while ( x < 1000 ) { if(x%10==0)
{
sum += x; // увеличение суммы, если выполняется условие
}
x<span>++; </span>// подсчёт повторений цикла <span>}
cout << sum;</span>
Прикрепил скрин программы