Вы можете скопировать на свои диски ненужную для вас информацию со школьного компьютера
Есть опасность заражения компьютера вирусом
От частого использования разъемов компьютера они могут испортиться
Нельзя в компьютер вставлять большое количество носителей информации
Uses crt;
var
tovar:real;
begin
tovar:=20.4;
writeln(tovar*2);
writeln(tovar*3);
writeln(tovar*4);
writeln(tovar*5);
writeln(tovar*6);
writeln(tovar*7);
writeln(tovar*8);
writeln(tovar*9);
writeln(tovar*10);
end
1.
program z1;
var x:real;
begin
writeln('Input x: ');
readln(x);
if (x<9) then
begin
x:=(x*x)/(x-9);
writeln('New x: ',x);
end
else
begin
x:=Sin(x);
writeln('New x: ',x);
end;
end.
Поясню выбор типа х: вещественный, т.к. функция синуса вернет не целое число.
2.
program z2;
var a,b,c:real;
begin
writeln('Input a, b, c:');
readln(a,b,c);
writeln('Числа, удовлетворяющие условию:');
if((a>1) and (a<3)) then
writeln(a);
if((b>1) and (b<3)) then
writeln(b);
if((c>1) and (c<3)) then
writeln(c);
end.
А - 0
Б - 101
В - 110
Скажем,
Г - 100
Д - 1110
Е - 1111
1 + 3*3 + 4*2 = 18
Для кодирования одного символа в кодировке ASCII используется 8 бит, в кодировке Unicode - 16 бит (хотя это зависит от того, что кодируется). Следовательно, искомый объем сообщения = 2^13 * 2 = 2^14