Що означає програмний код: ShowMessage('ProgrammError')​

юра из новгородатоля из москвы

алеша из томска

коля из перми

витя из санкт-петербурга 

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

на паскале:

var

n,s,p: integer;

begin

read(n);

p: =n mod 10;

if p mod 2=0 then writeln ('оканчивается на четную цифру')

                    else writeln ('оканчивается на четную цифру');

while n> 0 do

begin

n: =n div 10;

s: =s+1;

end;

writeln ('количество цифр в числе', s);

end.

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)