Var a,b:integer; begin write('Введите число a: '); readln(a); write('Введите число b: '); readln(b); if (a > b) then writeln('a больше b') else if (b > a) then writeln('b больше a') else writeln('a равен b'); end.
Суждение: 1. Все сосны являются деревьями. 2.Ни один кит - не рыба. 3.Все караси являются рыбами. 4. Все розы - это цветы. 5. Все мухи - это птицы.
Умозаключения: 1. Ты задал вопрос, вопрос задают когда не знают. Умозаключение: ты не знаешь. 2. Все прямоугольники-параллелограммы. Квадрат - это прямоугольник. Умозаключение: квадрат - это параллелограмм. 3. Все люди смертны. Сократ - человек. Умозаключение: Сократ смертен. 4. Звезды взрываются. Солнце - звезда. Умозаключение: Солнце взорвется. 5. У треугольника все углы равны. Умозаключение: треугольник равноугольный
Проще всего складывать в столбик как обычные десятичные числа, но если в сумме число получится больше 8 (система восмиричная), то мы отнимаем 8, смотрим: меньше ли получившийся остаток 8, если нет, то снова отнимаем восемь и тогда записываем остаток, а в "ум" запишем число отнятых восьмерок
574+467=1263 (все числа в восьмиричной системе счисления)
так, складывая 4 и 7, получаем 11, что больше 8, поэтому отняв 8, получим цифру 3, которую и записываем как последнюю цифру числа (3 пишем, 1 в уме), далее складываем 6 и 7 и не забываем про 1, потому что в раз мы отняли всего одну восьмерку, получаем 14, но записываем только 6, а 1 в уме, затем 5, 4 и 1 - 2 пишем, 1 в уме, далее просто приписываем единицу, получаем 1263
P.S. несмотря на то, что кажется сложно, это немногим отличается от десятичной системы сложения в столбик
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
if (a > b) then
writeln('a больше b')
else if (b > a) then
writeln('b больше a')
else
writeln('a равен b');
end.