#1
program Program1;var rub, dol:real;begin writeln('Введите сумму в рублях:'); readln(rub); dol:=rub/67; writeln('Сумма в доллорах= ',dol); end.
#2
program Program1;var a,b:integer;beginwriteln('Введите целое число:');readln(a);
if a>0 then b:=a-a-a;if a<0 then b:=a;if a=0 then writeln('Чило = 0');writeln('Чило a=',b); end.
Держи. А вообще нужно самому попытаться сначала)
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
Измерение информации: Количество символов * вес одного символа. В данном предложении 82 символа. Удаляем все встретившиеся дважды символы и получаем (фигура, боквыен-тйльсмпд) (24 символа, значит ближайшая мощность алфавита 2 в 5 степени, т.е. 32) 5 бит вес одного символа. Вес предложения равен = 82 * 5 = 410 бит