Программирование линейных алгоритмов. Урок 3 Изучи предложенный программный код и установи соответствие между операторами и числовыми значениями. Продукты питания a, b, c, d=1800, 3000, 450, 500 Стоимость (г.) s1=a+b+c+d Колбаса S2 = 1800 res=s2/s1 Сыр 3000 Сметана 450 Кефир , билим ленд,быстрей
//Первый вариант
var a, b:integer;
BEGIN
write('Введите первое число = '); readln(a);
write('Введите второе число = '); readln(b);
writeln(a-(-b));
END.
//---------------------------------------
//Второй вариант
function recSumBits(a, b:integer):integer;
var o1, o2: integer;
begin
if b = 0 then recSumBits := a
else
begin
o1 := a xor b;
o2 := (a and b) shl 1;
recSumBits := recSumBits(o1, o2);
end;
end;
var a, b: integer;
BEGIN
write('Введите первое число = '); readln(a);
write('Введите второе число = '); readln(b);
writeln(recSumBits(a, b));
readln;
END.