1. Представьте десятичное число 29 в двухбайтовом формате.

2. Представьте десятичное число 40 в
двухбайтовом формате.

3. Представьте двоичное число 11011,11 в
четырехбайтовом формате. Представьте число
сначала в форме с плавающей запятой.

4. Представьте двоичное число 1110,101 в
четырехбайтовом формате. Представьте
число сначала в форме с плавающей запятой.

p - произведениеs - суммаi - цикловая переменная1. цикл с предусловием whilevarp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; while i < 200 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i;   end; i : = i + 1; [или ing(i)]end; writeln(p); writeln(c)end.2. цикл с постусловием repeat varp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; repeatif i mod 5 = 0 thenbeginp : = p * i; s : = s + i;   end; i : = i + 1; [или ing(i)]until i > = 200; writeln(p); writeln(c)end. 3. цикл for varp, s, i : longint; [или integer]beginp : = 1; s : = 0; for i : = 101 to 199 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i;   end; end; writeln(p); writeln(c)end.

program xxx;

var a: string;

begin

    write('введите строку-');

    read(a);

    write(a);

  readln

end.

дело в том, что цифра это знак, и буква это знак.

на паскале:

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.