Стандартный алгоритм на плюсах:
НО мне кажется что в задании есть опечатка и нужно найти числа, где средняя равна сумме первой и третьей.
Навсякий приведу и тот и тот вариант
1) Вариант(КАК В ЗАДАНИИ)
#include <iostream>
using std::cin,std::cout,std::endl;
int main(){
for (size_t a=0; a<=9;++a){
for (size_t b =0;b<=9;++b){
for (size_t c = 0; c<=9;++c){
if (b == a+b)
cout << a << b<<c << endl;
}
}
}
return 0;
}
2) Вариант2 (как я думаю)
#include <iostream>
using std::cin,std::cout,std::endl;
int main(){
for (size_t a=0; a<=9;++a){
for (size_t b =0;b<=9;++b){
for (size_t c = 0; c<=9;++c){
if (b == a+c)
cout << a << b<<c << endl;
}
}
}
return 0;
}
Автобус автограф автодром автомат автор
Ответ 400.
256/8 = 32 (остаток 0)
32/8 = 4 (остаток 0 )
и там 4.
<u><em>1. Типовой "школьный" вариант</em></u>
// PascalABC.NET 3.0, сборка 1076
var
s,a1,a2,a3:string;
p:integer;
begin
s:='22 33 444';
p:=Pos(' ',s);
a1:=Copy(s,1,p-1);
Delete(s,1,p);
p:=Pos(' ',s);
a2:=Copy(s,1,p-1);
Delete(s,1,p);
a3:=s;
Writeln(a1,#13#10,a2,#13#10,a3)
end.
<em><u>Результат выполнения программы:</u></em>
22
33
444
<em><u>2."Современный" вариант</u></em>
// PascalABC.NET 3.0, сборка 1076
begin
var s:='22 33 444';
var m:=s.ToWords;
var a1:=m[0];
var a2:=m[1];
var a3:=m[2];
Writeln(a1,#13#10,a2,#13#10,a3)
end.
<em><u>Результат выполнения программы:</u></em>
22
33
444