Program n1;
var sum,a,c: integer;
begin
readln(a);
sum:=0;
while true do
begin
readln(c);
if c=0 then break;
if c mod a=0 then sum:=sum+c;
end;
writeln(sum);
end.
Переводить в десятичную и решать в ней, результат потом переводить обратно
1. команда 2: 8:2 = 4
2. команда 2: 4:2 = 2
3. команда 2: 2:2 = 1
4. команда 1: 12
5. команда 2: 12:2 = 6
Ответ: 6
Учебник 56 бит понял аааааааааауууууууууу
Первая программа
var x,y: real;
begin
read(x);
y := x-Power(x,3)/3+Power(x,5)/5;
write('y = ', y );
end.
Вторая
var x,y: real;
begin
read(x);
y := Power(2, -x)-cos(x)+sin(2*x*y);
write('y = ', y );
end.
Третья
var x,y: real;
begin
read(x);
y := (Power(x,2)-7*x+10)/(Power(x,2)-8*x+12);
write('y = ', y );
end.
Четвертая
var x,y: real;
begin
read(x);
y := x-10*sin(x)+abs(power(x,4)-power(x,5));
write('y = ', y );
end.