На входе два числа а и б
далее проверяем
если а меньше б
то минимум равен а
иначе минимум равен б
в конце выводим минимум
и завершаем программу
8*1024*1024*8=67`108`864 бит
в мегабайте 1024 килобайт
в килобайте 1024 байт
в байте 8 бит
Var x, a, b, c, s: integer;
begin
write('Введите число: '); readln(x);
a := x div 100;
b := (x div 10) mod 10;
c := x mod 10;
s := a + b + c;
writeln('Число принадлежит ', a, ' сотне');
if(s mod 2 = 0) then writeln('Сумма цифр четная')
else writeln('Сумма цифр нечетная');
end.
a - сотни
b - десятки
с - единицы
Надеюсь я правильно тебя понял.
1) 12.5 байт
2)
3)
4) 1,6 бит
Сейчас в комментариях попробую решить
Нужно нажать одновременно Cntrl+Alt+Delete