Var
m,n,s,p:integer;
Begin
read(m,n,s);
p:= (s mod 10) + (s div 100 mod 10); {p сумма цифр}
If (p mod m = 0) and (p mod n = 0) then
writeln('Числа ',m,' и ',n,' являются делителями числа ',p)
else
writeln('Числа ',m,' и ',n,' не являются делителями числа ',p);
end.
Объяснение из скобок можешь убрать
Последний невозможно перевести, так как число записано неверно, число в 7 СС может состоять из цифр от 0 до 7(а там есть 8)
Полное решение не писал, так как много.
В интернете посмотрите тему "Перевод из одной Системы Счисления в другую"
1999............... MCMXCIX
Конечно можно и через указатель и через ссылку, смотря для чего?)
void foo(int* ptr) тогда вызов выглядит так --> foo(arr + 3)
или
void foo(int& ptr) и вызов --> foo(arr[3]) это более безопасный вариант, без доступа к соседним ячейкам памяти, без копирования, но с возможностью изменения значения в самом массиве, ну, конечно, если не использовать константность, хотя и это 100% гарантии не дает const_cast никто не отменял)) Так что думаю вам и обычной
void foo(int value)
должно хватить.
Var a:integer;
begin
readln(a);
if a mod 2=0 then a:=a*a
else a:=a*a*a;
writeln('a = ',a);
end.
Пример:
18
<span>a = 324</span>