Var x,y,z:integer;
sr:real;
begin
read(x,y,z);
sr:=(x+y+z)/3;
writeln(sr:2:1);
end.
1 задание 2DF = 735 из шестнадцатиричной системы в десятичную
Так же как клаома и грогха
В ячейку В2 вводите формулу, как показано на рисунке, а дальше действуете мышкой
var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.