Var a,b,max:integer;
begin
readln(a);
max:=-maxint;
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
if b>max then max:=b;
end;
writeln(max)
end.
– • –т – –р •е – • к• – б• • о – – •л – – •л
ТРЕКБОЛЛ
C английского trackball: track - путь, тропа + ball - шар, мяч. Трекбол - устройство в
виде шара на подставке, используемый вместо мыши или джойстика.
<span><span>
P.s. Т.к. трекбол на русском языке пишется с
одной «л», поэтому в правильности ответа я сомневаюсь</span> (на английском языке пишется двойная "L", но на русском одна «л»).</span>
Там должна быть поговорка "За добро добром и платять". А по вашим координатам (<span>(2,2) (5,1) (3,1) (12,1) (10,3) (12,1) (1,2) (2,1) (1,3) (4,2) (11,1) (4,2) (12,3))</span> получается "ром и платять".
В древнем Египте использовалась нумерация, основанная на десятичной системе счисления:
- для единиц использовались палочки
- для десятков - пятки
- для сотен - мерные верёвки
- для тысяч - цветущий лотос
- десятки тысяч - пальцы
- сотни тысяч - головастики или жабы
- миллионы - человек
Также иногда утверждается, что десятки миллионов изображались иероглифом восходящего солнца в честь бога Амона Ра.
Для записи чисел иероглифы повторялись до девяти раз и записывались вместе.
Несколько позже (не позже 1740 г. д.н.э.) у египтян появился символ, обозначающий число ноль. Он изображался в виде сердца с крестом.
Var
i,n:integer;
IsOdd,IsEven:boolean;
begin
IsOdd:=false; IsEven:=false;
Write('Введите три числа: ');
for i:=1 to 3 do
begin
Read(n);
if n<>0 then
if (n mod 2)=0 then IsEven:=True
else IsOdd:=True
end;
Write('Среди введенных чисел ');
if IsOdd then Write('есть нечетное')
else Write('нет нечетных');
if IsEven then Write(' и есть четное')
else Write('и нет четных')
end.
<em><u>Тестовое решение:</u></em>
Введите три числа: 5 8 3
Среди введенных чисел есть нечетное и есть четное