... - уже данный код в условии
s := 0;
min := 10;
for res := 1 to 4 do
begin
digit := n mod 10;
if (digit mod 2 = 1) then
begin
s += digit;
if (digit < min) then
min := digit;
end;
n := n div 10;
end;
writeln(s * min);
end.
1. 16=2 степени i
2 в степени 4=2 в степени i
i=4
значит, 1 буква несет 4 бита информации
ответ: 4 * 16 = 64 бита
program zadacha;
Var x,a,b :real;
begin
readln (a,b);
if a<>0 then x:=-b/a;
Writeln ('x= ',x);
end.
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer;
begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.