Var
a1, a2: integer;
begin
a1 := 0;
a2 := 0;
writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);
writeln('answer is: ', a1+a2);
end.
Var
n:integer;
c:string;
begin
write('Введите число от 10 до 9999 ->');
readln(n);
Str(n,c);
writeln('Предпоследняя цифра в числе равна ',c[length(c)-1])
end.
Пример работы программы:
Введите число от 10 до 9999 ->1523
Предпоследняя цифра в числе равна 2
Ответ:
var
n1, n2, dif: real;
begin
readln(n1, n2);
dif:= n1-n2;
if n1-n2 > 0 then
writeln('Разность положительная. Разность = ', dif)
else if n1-n2 < 0 then
writeln('Разность отрицательная. Разность = ', dif)
else
writeln('Разность равна нулю. Разность = ', dif);
end.
Объяснение:
Надо сложить эти числа и подилить их на n раз
Результат вычисления выражения = 43046746
В 3-ричной системе = 10000000000000221
Кол-во цифр 2 = 2
9^8 + 3^3 - 2 = <span>3^16 + 3^3 - 3^1 + 1
</span>3^16 (3) = 10000000000000000 => нет 2
3^3 - 3^1 (3) = 1000 - 10 = 220 => 2 двойки
+1 => не дает двоек
Ответ 2