Стереть наверно!
Если нет то что то другая кнопка.
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 - десятки
с - единицы
Надеюсь я правильно тебя понял.
От дорожного знака проведи стрелку К другим. Вот и все!
10*15 переведем в дюймы
1 дюйм = 2,54 см
10 / 2,54 = 3,937 дюймов
15 / 2,54 = 5,9 дюймов
определим объём файла
3,937*600 * 5,9*600 * 3 = 25086564 байт
<span>25086564 байт / 1024 = 24498,59 Кбайт / 1024 = 23,92 Мбайт</span>