Паскаль:
var Gr, Pu, Ko, Sl,n ,m : integer;
begin readln(Gr, Pu, Ko, Sl); readln(n, m); Gr := Gr - n + m; if (Gr >= Pu) and (Gr >= Ko) and (Gr >= Sl) then writeln('Yes') else writeln('No')end.
<u>Ответы:</u>
1)40 байт
2)Довольно странная задача. При просмотре ответов возникает естественный вопрос: откуда взялась папка "Кино"?
При самостоятельном решении у меня вышло D:/ФАНТАСТИКА/ГОЛЛИВУД.
Однако среди ответов этого варианта нет, поэтому выбираем наиболее приближенный к найденому, а именно - вариант №1.
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 - десятки
с - единицы
Надеюсь я правильно тебя понял.