1) Дано число. Получить новое число с обратным значением цифр , где 0→9, 1→8, 2→7, 3→6, 4→5, а цифры 5, 6,7,8,9 не изменяются .
dy
Var a,h:longint;
b:integer;
begin
writeln ('введи число');
readln (a);
while a>0 do begin
b:=a mod 10;
case b of
0: b:=9;
1: b:=8;
2: b:=7;
3: b:=6;
4: b:=5;
end;
h:=h*10+b;
a:=a div 10;
end;
a:+0;
while h>0 do begin
b:=h mod 10;
a:=a*10+b;
h:=h div 10;
end;
writeln (a);
readln;
end.
120
То есть там прибавляешь разницу между двумя прошлыми и прошлым и этим числом, короче говоря ответ 120
Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
D = 16 кГц = 16000 Гц
t = 30.0 c
A = D * i * t * c = 16000 * 4 * 30.0 * 2 = 3840000.0 бит = 468.75 Kбайт = 0.457763671875 Мбайт
char - это 2 байта или 2*8=16 бит
Ответ: 16
Ответ:
program ideone;
uses SysUtils;
function WordsCount(s: string): integer;
var
i, count: Integer;
begin
count := 0;
for i := 1 to Length(s) do
begin
if (s[i] <> ' ') and ((i = 1) or (s[i-1] = ' '))
then inc(count);
end;
WordsCount := count;
end;
var
a: string;
count: Integer;
isUrgent : Integer;
cost: Double;
begin
writeln('Введите строку A: ');
read(a);
count := WordsCount(a);
writeln('Посылка срочная? Если да, введите 1, иначе 0: ');
read(isUrgent);
cost := count * 2;
if (isUrgent = 1) then cost := 1.2*cost;
writeln(Format('Стоимость посылки составляет %.2f рублей.', [cost]));
end.
