У тебя нет значения "then"
а где его нужно написать- зависит от условия задачи
Var N:longint;
beginwriteln('Введите N');
readln(N);
writeln('N= ',N);
while n>=100 do begin
N:=N div 10;
end;
write(' Число = ',N);
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 девочек.
Органы чувств-язык,нос,кожа,уши,глаза
чувств-грусть,радостьи так далее я думаю так
var
t : string := 'операция';
begin
writeln('до ', t);
delete(t, 8, 1);
delete(t, 6, 1);
delete(t, 3, 1);
delete(t, 1, 1);
insert('в', t , 4);
insert('ло', t , 6);
writeln('после ', t)
end.