Question

Помогите , пожалуйста, написать эту программу на паскале , а то меня что-то в ступор ввело , ведь программа , то легкая.

Написать программу, определяющую сколько различных трехзначных чисел, содержащих только нечетные цифры содержится на отрезке от 100 до М (М< 1000).

Answer 1

var M,i,k:integer;

BEGIN

k:=0;

readln(M);

for i:=100 to M do

if ((i div 100) mod 2<>0) and ((i mod 10) mod 2<>0) and (((i div 10) mod 10) mod 2<>0) then

k:=k+1;

writeln(k);

end.

Answer 2

program chisla;

var

i, s, M: integer;

begin

writeln('Введите число, не превыщающие 1000');  

read(M);

s:=0;

 for i:=100 to M do

  if ((i div 100)mod 2 <>0) and ((i div 10 mod 10)mod 2 <>0) and ((i mod 10)mod 2 <>0) then

   begin

    write(i:4);

    s:=s+1;

   end;

writeln;

writeln('Чисел:',s);

end.