Program red;
var a,b,c:integer;
begin
b:=0;
readln(a);
if a<10 then
begin
if a*5=0 then b:=1;
end;
if (a>=10) and (a<100) then
begin
if ((a div 10)*5=0) then b:=1;
if ((a mod 10)*5=0) then b:=1;
end;
if (a>=100) and (a<1000) then
begin
if ((a div 100)*5=0) then b:=1;
if (((a div 10) mod 10)*5=0)then b:=1;
if ((a mod 10)*5=0)then b:=1;
end;
if b=1 then writeln('yes') else writeln('no');
end.
В древнем Египте использовалась нумерация, основанная на десятичной системе счисления:
- для единиц использовались палочки
- для десятков - пятки
- для сотен - мерные верёвки
- для тысяч - цветущий лотос
- десятки тысяч - пальцы
- сотни тысяч - головастики или жабы
- миллионы - человек
Также иногда утверждается, что десятки миллионов изображались иероглифом восходящего солнца в честь бога Амона Ра.
Для записи чисел иероглифы повторялись до девяти раз и записывались вместе.
Несколько позже (не позже 1740 г. д.н.э.) у египтян появился символ, обозначающий число ноль. Он изображался в виде сердца с крестом.
По пять цифр в ряду
n = 10:
1 2 3 4 5
6 7 8 9 10
11 12 13 14 15
16 17 18 19 20
n = 2:
1 10 11 100 101
110 111 1000 1001 1010
1011 1100 1101 1110 1111
10000 10001 10010 10011 10100
n = 3:
1 2 10 11 12
20 21 22 100 101
102 110 111 112 120
121 122 200 201 202
n=5:
1 2 3 4 10
11 12 13 14 20
21 22 23 24 30
31 32 33 34 40
n=8:
1 2 3 4 5
6 7 10 11 12
13 14 15 16 17
20 21 22 23 24
Ты издеваешься? Думаешь тебе за 5 баллов напишут программу???
Program chislo;
<span>Var x, y, a, b :integer; </span>
<span>begin </span>
<span>for x:=10 to 99 do </span>
<span>begin </span>
<span>a:=x div 10; {1 цифра} </span>
<span>b:=x mod 10; {2 цифра} </span>
<span>y:= a*1000+a*100+b*10+b; {вставили между цифрами это же число} </span>
<span>if (y div x = 99) and (y mod x = 0) then writeln ('Искомое число = ', x) </span>
<span>end; </span>
<span>end.</span>