Program p1; var a,b:integer; begin writeln ('Введите 2 числа'); readln (a,b); if a=b then writeln ('Числа одинаковые') else if a>b then begin writeln ('Наибольшее число ',a); writeln ('Наименьшее число ',b); end else begin writeln ('Наибольшее число ',b); writeln ('Наиментшее число 10 ',a); end; end.
program p2; var a,b,c,d:integer; begin writeln ('Введите 4 числа'); readln (a,b,c,d); if a<b then a:=b; if c<d then c:=d; if a<c then a:=c; writeln ('Наибольшее число ',a); end.
program p3; var a,b,v:integer; begin writeln ('Введите возрасты людей:'); write ('Антона - '); readln (a); write ('Бориса - '); readln (b); write ('Виктора - '); readln (v); if (a=b) and (a=v) then writeln ('Все люди одного возраста'); if (a=b) and (a>v) then writeln ('Антон и Борис старше Виктора'); if (a=b) and (a<v) then writeln ('Виктор старше всех') else if (v>a) and (v>b) then writeln ('Виктор старше всех'); if (b=v) and (b>a) then writeln ('Борис и Виктор старше Антона'); if (b=v) and (b<a) then writeln ('Антон старше всех') else if (a>v) and (a>b) then writeln ('Антон старше всех'); if (a=v) and (a>b) then writeln ('Антон и Виктор старше Бориса'); if (a=v) and (a<b) then writeln ('Борис старше всех') else if (b>v) and (b>a) then writeln ('Борис старше всех'); end.
Одна из древнейших систем счисления была создана в Китае, а также в Японии. Эта система возникла как результат оперирования с палочками, выкладываемыми для счета на стол или доску. Числа от единицы до пяти обозначались, соответственно, одной, двумя и т.д. палочками, выкладываемыми вертикально, а одна, две, три или четыре вертикальные палочки, над которыми помещалась одна поперечная палочка, означали числа шесть, семь, восемь и девять. (Смотреть таблицу обозначений чисел.)
Первые пять кратных числа 10 обозначались одной, двумя, пятью горизонтальными палочками, а одна, две, три и четыре горизонтальные палочки, к которым сверху приставлялась вертикальная палочка, означали числа 60, 70, 80 и 90. Для обозначения чисел больше 99 использовался позиционный принцип. Число 6789 китайцы записали бы так:
. Обозначения чисел с палочек тесно связано со счетом на пальцах и счетной доске, но применялось оно также и в письменных вычислениях.
Во второй китайской системе счисления для обозначения первых девяти целых чисел или символов (смотреть таблицу обозначений чисел) используют девять различных знаков и одиннадцать дополнительных символов для обозначения первых одиннадцати степеней числа 10. В сочетании с умножением и вычитанием это позволяло записывать любое число меньше триллиона. Если один из символов, обозначающих первые девять целых чисел, стоит перед (при чтении слева направо) символом, означающим степень числа 10, то первое нужно умножить на второе, если же символ одного из девяти первых целых чисел стоит на последнем месте, то это число надлежит прибавить к обозначенному предыдущими символами. В такой системе счисления число 6789 выглядело бы так:
.
Таблица обозначения чисел в Китае ( от 1 – до 900).
1000 -
Записывались цифры числа начиная с больших значений и заканчивая меньшими. Если десятков, единиц, или какого-то другого разряда не было, то сначала ничего не ставили и переходили к следующему разряду. (Во времена династии Мин был введен знак для пустого разряда - кружок - аналог нашего нуля).
Чтобы не перепутать разряды использовали несколько служебных иероглифов, писавшихся после основного иероглифа, и показывающих какое значение принимает иероглиф-цифра в данном разряде.
Если один из символов, обозначающих первые девять целых чисел, стоит перед (при чтении слева направо) символом, означающим степень числа 10, то первое нужно умножить на второе, если же символ одного из девяти первых целых чисел стоит на последнем месте, то это число надлежит прибавить к обозначенному предыдущими символами.
var a,b:integer;
begin
writeln ('Введите 2 числа');
readln (a,b);
if a=b then writeln ('Числа одинаковые')
else if a>b then
begin writeln ('Наибольшее число ',a);
writeln ('Наименьшее число ',b);
end
else begin writeln ('Наибольшее число ',b);
writeln ('Наиментшее число 10 ',a);
end;
end.
program p2;
var a,b,c,d:integer;
begin
writeln ('Введите 4 числа');
readln (a,b,c,d);
if a<b then a:=b;
if c<d then c:=d;
if a<c then a:=c;
writeln ('Наибольшее число ',a);
end.
program p3;
var a,b,v:integer;
begin
writeln ('Введите возрасты людей:');
write ('Антона - ');
readln (a);
write ('Бориса - ');
readln (b);
write ('Виктора - ');
readln (v);
if (a=b) and (a=v) then writeln ('Все люди одного возраста');
if (a=b) and (a>v) then writeln ('Антон и Борис старше Виктора');
if (a=b) and (a<v) then writeln ('Виктор старше всех')
else if (v>a) and (v>b) then writeln ('Виктор старше всех');
if (b=v) and (b>a) then writeln ('Борис и Виктор старше Антона');
if (b=v) and (b<a) then writeln ('Антон старше всех')
else if (a>v) and (a>b) then writeln ('Антон старше всех');
if (a=v) and (a>b) then writeln ('Антон и Виктор старше Бориса');
if (a=v) and (a<b) then writeln ('Борис старше всех')
else if (b>v) and (b>a) then writeln ('Борис старше всех');
end.
Одна из древнейших систем счисления была создана в Китае, а также в Японии. Эта система возникла как результат оперирования с палочками, выкладываемыми для счета на стол или доску. Числа от единицы до пяти обозначались, соответственно, одной, двумя и т.д. палочками, выкладываемыми вертикально, а одна, две, три или четыре вертикальные палочки, над которыми помещалась одна поперечная палочка, означали числа шесть, семь, восемь и девять. (Смотреть таблицу обозначений чисел.)
Первые пять кратных числа 10 обозначались одной, двумя, пятью горизонтальными палочками, а одна, две, три и четыре горизонтальные палочки, к которым сверху приставлялась вертикальная палочка, означали числа 60, 70, 80 и 90. Для обозначения чисел больше 99 использовался позиционный принцип. Число 6789 китайцы записали бы так:
. Обозначения чисел с палочек тесно связано со счетом на пальцах и счетной доске, но применялось оно также и в письменных вычислениях.
Во второй китайской системе счисления для обозначения первых девяти целых чисел или символов (смотреть таблицу обозначений чисел) используют девять различных знаков и одиннадцать дополнительных символов для обозначения первых одиннадцати степеней числа 10. В сочетании с умножением и вычитанием это позволяло записывать любое число меньше триллиона. Если один из символов, обозначающих первые девять целых чисел, стоит перед (при чтении слева направо) символом, означающим степень числа 10, то первое нужно умножить на второе, если же символ одного из девяти первых целых чисел стоит на последнем месте, то это число надлежит прибавить к обозначенному предыдущими символами. В такой системе счисления число 6789 выглядело бы так:
.
Таблица обозначения чисел в Китае ( от 1 – до 900).
1000 -
Записывались цифры числа начиная с больших значений и заканчивая меньшими. Если десятков, единиц, или какого-то другого разряда не было, то сначала ничего не ставили и переходили к следующему разряду. (Во времена династии Мин был введен знак для пустого разряда - кружок - аналог нашего нуля).
Чтобы не перепутать разряды использовали несколько служебных иероглифов, писавшихся после основного иероглифа, и показывающих какое значение принимает иероглиф-цифра в данном разряде.
Если один из символов, обозначающих первые девять целых чисел, стоит перед (при чтении слева направо) символом, означающим степень числа 10, то первое нужно умножить на второе, если же символ одного из девяти первых целых чисел стоит на последнем месте, то это число надлежит прибавить к обозначенному предыдущими символами.