Angelina1139
?>

Задача 5: Числа Марина любит нечётные значения. Однажды она выписала на доске все числа от A до B (включительно), а затем стёрла те числа, сумма цифр которых чётна. Определите, сколько чисел осталось на доске. Входные данные Программа получает на вход два натуральных числа A и B, A ≤ B. Выходные данные Программа должна вывести единственное число — количество чисел с нечётной суммой цифр из выписанных на доске. Система оценивания Решение, правильно работающее для случая, когда числа A и B однозначные, будет оцениваться в Решение, правильно работающее для случая, когда числа A и B не превосходят 100, будет оцениваться в Решение, правильно работающее для случая, когда числа A и B не превосходят 10000, будет оцениваться в В оценивается решение, которое работает для случаев, когда числа A и B не превосходят 109.

Информатика

Ответы

sergey
Программа может выглядеть так:

uses Crt;
const n=10;
type Mas=array [1..n] of integer;
var A: Mas;
    i, temp, MinInd, MaxInd, Max, Min: integer;
begin
ClrScr;
Randomize;
for i:=1 to  n do
   begin
   A[i]:=10+random(90);
   Write (A[i]:5);
   end;
WriteLn;
Max:=A[1]; MaxInd:=1;
Min:=A[1]; MinInd:=1;
for i:=2 to n do
begin
  if A[i]<Min then
     begin
       Min:=A[i];
       MinInd:=i;
     end
     else
       if A[i]>Max then
       begin
       Max:=A[i];
       MaxInd:=i;
     end;
end;
 temp:=A[MaxInd];
 A[MaxInd]:=A[MinInd];
 A[MinInd]:=temp;
 WriteLn;WriteLn;
 for i:=1 to  n do
   Write (A[i]:5);
 WriteLn;
 ReadLn;
end.
yusinelnik8
Программа может выглядеть так:

uses Crt;
const n=10;
type Mas=array [1..n] of integer;
var A: Mas;
    i, temp, MinInd, MaxInd, Max, Min: integer;
begin
ClrScr;
Randomize;
for i:=1 to  n do
   begin
   A[i]:=10+random(90);
   Write (A[i]:5);
   end;
WriteLn;
Max:=A[1]; MaxInd:=1;
Min:=A[1]; MinInd:=1;
for i:=2 to n do
begin
  if A[i]<Min then
     begin
       Min:=A[i];
       MinInd:=i;
     end
     else
       if A[i]>Max then
       begin
       Max:=A[i];
       MaxInd:=i;
     end;
end;
 temp:=A[MaxInd];
 A[MaxInd]:=A[MinInd];
 A[MinInd]:=temp;
 WriteLn;WriteLn;
 for i:=1 to  n do
   Write (A[i]:5);
 WriteLn;
 ReadLn;
end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Задача 5: Числа Марина любит нечётные значения. Однажды она выписала на доске все числа от A до B (включительно), а затем стёрла те числа, сумма цифр которых чётна. Определите, сколько чисел осталось на доске. Входные данные Программа получает на вход два натуральных числа A и B, A ≤ B. Выходные данные Программа должна вывести единственное число — количество чисел с нечётной суммой цифр из выписанных на доске. Система оценивания Решение, правильно работающее для случая, когда числа A и B однозначные, будет оцениваться в Решение, правильно работающее для случая, когда числа A и B не превосходят 100, будет оцениваться в Решение, правильно работающее для случая, когда числа A и B не превосходят 10000, будет оцениваться в В оценивается решение, которое работает для случаев, когда числа A и B не превосходят 109.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Валерьевна1601
dawlatowajana
titovass9
Moroshkina-Aristova2011
vitalina3012
chuev4444
meu72
rikki07834591
testovich1012
marketing6
Mexx9050
samoilovcoc
ermisyareg436
kol-nat26
Immortal3331