program q175491;
var i,j,k,l: Integer;
sum: Longint;
b:boolean;
begin
sum:=0;
WriteLn('Трехзначные числа, в которых нет четных цифр');
WriteLn('Ноль будет считаться за четное число:');
for i:=100 to 999 do {Перебираем все трехзначные числа}
begin
k:=i;
While (k>0) do
begin
l:=k mod 10;
if odd(l) then b:=true{Если цифра нечетная то логической
переменной ставим значение "истина"}
else begin {Иначе логическая переменная принимает значение "ложь"}
b:=false;
break; {Выход из цикла}
end;
k:=k div 10;
end;
if b then begin
Write(i:4);
sum:=sum+i;
end;
end;
WriteLn;
WriteLn('Сумма всех выше приведенных чисел: ',sum);
WriteLn('Для завершения нажмите ENTER...');
ReadLn;
end.
While (k>0)and b do
begin
b:= odd(k);
k:=k div 10;
end;
program q175491a;
var
i,j,k: Integer;
sum: Longint;
begin
sum:=0;
i:= 1;
while (i<=9) do begin { сотни }
j:= 1;
while (j<=9) do begin { десятки }
k:= 1;
while (k<=9) do begin { единицы }
sum := sum+(i*10+j)*10+k;
inc(k,2);
end;
inc(j,2);
end;
inc(i,2);
end;
WriteLn;
WriteLn('Сумма всех выше приведенных чисел: ',sum);
WriteLn('Для завершения нажмите ENTER...');
ReadLn;
end.
program q175491;
var i,j,k,l: Integer;
sum: Longint;
begin
sum:=0;
WriteLn('Трехзначные числа, в которых нет четных цифр');
l:=111;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
for k:=1 to 5 do
begin
Write(l:4);
sum:=sum+l;
l:=l+2;
end;
l:=l+10;
end;
l:=l+100;
end;
WriteLn;
WriteLn('Сумма всех выше приведенных чисел: ',sum);
WriteLn('Для завершения нажмите ENTER...');
ReadLn;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.