Может получиться так:
//Pascal ABC.NET v 3.3
var
x, s: integer;
begin
readln(x);
s := (x div 100) + (x mod 100) + (x mod 10);
writeln(s);
end.
Begin
writeln (' .--I"""""""""":');
writeln (' / - I..............\');
writeln ('"-O-""""""O"O""-');
end.
Сначала переведем 111100₂ и 14₈ в десятичную систему:
111100₂ = 1∙2⁵+1∙2⁴+1∙2³+1∙2²+0∙2¹+0∙2⁰ = 32+16+8+4+0+0 = 60₁₀
14₈ = 1∙8¹+4∙8⁰ = 8+4 = 12₁₀
Получается в группе 60% девочек и 12 мальчиков.
12 мальчиков = 40%.
Найдем общее кол-во человек в группе: 12/40*100 = 30 человек.
Из них 30 - 12 = 18 девочек.
"Да" надо заключить в 'Да'
А вообще, лучше использовать цифры. Например, 1 и 2, Да и Нет соответственно. А в выводе указать, "Введите 1 для подтверждения"
a) 120
Б)373
Механизм решения данных заданий -
Расставить степени начиная с нулевой с права на лево
в вашем случае 0^7 1^6 1^5 1^4 1^3 0^2 0^1 0^0
записать вместо единиц двойки с их степенями
2⁶ + 2⁵ + 2⁴ + 2³
Считаем, складываем и получаем 120. Так переводятся числа из 2 в 10 систему счисления.