Program exs;
var a, i, sum : integer;
begin
sum:= 0;
readln(a); {Считывание числа}
for i:= 1 to 4 do begin
sum:=sum + (a mod 10); {Находим остаток от деления на 10}
a:=a div 10; {Выкидываем найденную цифру из числа}
end;
writeln(sum);
end.
Var
a, b, s : Integer;
begin
Write('введите a= ');
readln(a);
Write('введите b= ');
readln(b);
S:=a+b;
if s<32767 then writeln(s) else writeln('произошло переполнение');
end.
Відповідь:
Информация НЕ измеряется в ботах
Пояснення:
Тут нечего объяснять, просто почитайте в интернете про единицы измерения информации
1. a:= 16. b:=12-16/4 = 8 a:=16+8*3 Отсюда следует а = 40
2. a:= -3. a:= -(-3)-(-3) = 6. b:=a+2 = 8 a:= -b+a*b = -8 + (-3)*8 = -8-24= -32