<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.
Просто подбираеш по логике числа например 2 4 6 8 или 4 8 12 16 20 или 22 44 66 88
Все что doc, и txt это текстовый файл, графические это jpg wav, а программы bmp, exe
//PascalABC.NET 3.2 сборка 1318
Const
n=5;
Var
ar:array[1..n] of integer;
CouOfDel,i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=2 to n do
if ar[i-1]>ar[i] then inc(CouOfDel);
if CouOfDel>1 then writeln('Нет') else writeln('Да');
end.
Пример ввода:
1
2
2
1
3
Пример вывода:
Да
Иван составляет 5-буквенные слова, а использует для их составления он 7 букв.
На первой и последней позициях могут стоять только 3 буквы, а внутри слова они стоять не могут.
Следовательно, на 1 месте может стоять 3 буквы, на втором - 4 буквы, на третьем тоже 4 буквы, на четвертом 4 буквы, и на 5 месте может стоять 3 буквы. Найдём произведение:
3 * 4 * 4 * 4 * 3 = 9 * 64 = 576
Ответ: 576 слов