Var a,b : integer;
begin
readln(a,b);
if (a mod b) = 0 then writeln('Делитель ', b);
if (b mod a) = 0 then writeln('Делитель ', a);
readln;
end.
1. Материнская плата
2. Оперативная память
3. Акустические колонки
Begin
writeln (' .--I"""""""""":');
writeln (' / - I..............\');
writeln ('"-O-""""""O"O""-');
end.
Я делаю через промежуточный расчет - сначала в десятичную систему
143(7) = 3*7⁰ + 4*7¹ + 1*7² = 3+28+49 = 80(10)
Вспоминаем, что цифры больше 10 обозначаются буквами.
Напоминаю
10=А, 11=B, 12=C, 13=D, 14=E,15=F - это для перевода в 16-ричную.
Теперь наши 80 делим на 12, а остатки записываем.
80(10) = 6*12¹ +8*12⁰ = 68(12) - ОТВЕТ
Ответ:
program h;
uses crt;
var a, b, c: Integer;
begin
ReadLn(a, b, c);
if a+b+c>=200 then WriteLn('Выходит')
else WriteLn('Не выходит');
end.
Объяснение:
Первая строка: "h" можно заменить - это название программы
var - объявление переменных, Integer - целочисленные
readln - ввод трёх чисел
writeln - вывод ответа