<em>1. Современное решение, когда можно решить "в одну строку"</em>
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString
.Where(d->Pos(d,'13579')>0)).SelectMany(c->c)
.Select(c->c.ToDigit).Sum)
end.
<u>Пример</u>
252 337 105
S=24
<em>2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)</em>
var
m,i,j,s,d:integer;
begin
s:=0;
for i:=1 to 3 do begin
Read(m);
for j:=1 to 3 do begin
d:=m mod 10;
if d mod 2<>0 then s:=s+d;
m:=m div 10
end
end;
Writeln('S=',s)
end.
94,7=96972,2 байт
<span>99 401 728= 97072 кбайта
</span>5,52=5652,48 кбайта= 5788139,52 байт
[8, "1000"]
[9, "1001"]
[10, "1010"]
[11, "1011"]
значится числа таких 2, и большее из них 10
#include <iostream>
int main()
{
int a,b;
std::cin >> a >> b;
if (a==b)
std::cout <<"EQUALS\n";
else
{
int max=(a>b) ? a:b;
float v=(a>b) ? float(a)/b:float(b)/a;
std::cout <<"max: " <<max <<" v " <<v <<" raz\n";
}
return 0;
}