<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.
1. а) зрение, глаза ( на вид) б) нюх, нос ( на запах) в) кожа, глаза ( на вид) г) кожа ( по ощущениям) д) Глаза, уши ( на слух и вид) е) кожа, глаза ( на вид и ощущение)
Дальше разобрать не могу.
1) 2160/270=8 бит (весит 1 символ)
2) 2 в 8 степени =256 (формула N=2 в степени i)
type diapazon=-20..60;
var a: array [1..15] of diapazon;
i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
if (max/min) > 2 then writeln('Верно') else writeln('Неверно');
end.
Вероятнее всего складывать надо цифры, а не числа
var x,i,k:integer;
begin
readln(x);
while x>0 do begin
i:=x mod 10;
k:=k+i;
x:=x div 10;
end;
writeln(k);
end.
