В зависимости от типа форматирования носителя...А так 0,5 Кбайт.= 512 Байт
Var a, x: longint;
begin
readln (a);
x:=-a;
writeln ('x1=0');
writeln ('x2=',x);
end.
Текила,что тут не понятного?
Var s:string;l,k,p:integer;beginwrite('Введите текст');//s:='Проверочный текст для разделения на слова и мы';read(s);l := s.Length;p:=1;while p <= l do beginif s[p] = 'ы' then k:= k +1;p:=p +1;end;write(l,k);end.
Смашнюк Данило Русланович - 7 + 6 + 10 символов = 23 символа
23*8 = 184 бита