Определить, сколько среди множества чисел, первая значащая цифра в десятичной записи которых 1 или 2

@Данилов · Регистрация: 25.01.2013

Author24 — интернет-сервис помощи студентам

Задача 6. Дано 100 целых чисел от 1 до 100. Определить, сколько среди них чисел, первая значащая цифра в десятичной записи которых 1 или 2 (не использовать деления, div или mod)

@Gidroboom · 13.02.2013, 23:42

Pascal

program sdasd;
 
var a:array[1..100] of integer;
    p:real;
    i,k,l:integer;
 begin
    randomize;
    for i:=1 to 100 do
      a[i]:=Random(100);
      
     for i:=1 to 100 do
      write(a[i],' ');      
      l:=0;      
      for i:=1 to 100 do
        begin
            if (a[i]=1) or (a[i]=2) then
            l:=l+1
              else
          p:=a[i]/10;
          k:=trunc(p);
            if (k=1) or (k=2) then l:=l+1
            end ;          
         
            
      writeln;
      writeln(l);
      readln;
      
      end.

@Данилов 2 / 2 / 0 Регистрация: 25.01.2013 Сообщений: 39
		1
	Определить, сколько среди множества чисел, первая значащая цифра в десятичной записи которых 1 или 2 13.02.2013, 22:11. Показов 1140. Ответов 1 Метки нет (Все метки) Задача 6. Дано 100 целых чисел от 1 до 100. Определить, сколько среди них чисел, первая значащая цифра в десятичной записи которых 1 или 2 (не использовать деления, div или mod) 0

	13.02.2013, 23:42

Определить, сколько среди множества чисел, первая значащая цифра в десятичной записи которых 1 или 2

Решение