На каком языке надо? Если паскаль то держи:
1)Program A;
Var a:Integer;
Begin
Write('Введите двузначное число');
Read(a);
If (a>10) and (a<100)
Then
Writeln('Число является двузначным')
Else
Writeln('Вы ввели не двузначное число!');
End.
2)var
i,a:integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a-1;
writeln(a);
end;
end.
3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже
4)program b;
var a:integer;
begin
write('Введите любое четное число= ');
read(a);
if a mod 2 = 0
then
write('Ответ= ',a/2)
else
write('Было введено нечетное число!');
end.
5)program d;
var i,a:Integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a+10;
writeln(a);
end;
end.
6)Его надо делать так же как число и 555 а ответ вообще 4 единицы
Очевидно, это двоичная последовательность. Здесь 64 разряда (бита).
Их можно разбить ровно на 8 байт (т.к. в одном байте 8 бит):
00110101
00100000
11100001
11100000
11101011
11101011
11101110
11100010
Если перевести эти двоичные значения в шестнадцатеричные числа, то получим: 35 20 e1 e0 eb eb ee e2
а если в десятичные числа, то: 53 32 225 224 235 235 238 226
Для любого из этих трёх представлений (двоичного, шестнадцатеричного и десятичного) можно найти кодовые таблицы, по которым легко определить символы текста, соответствующие этим кодам. Чаще всего в таких таблицах используют шестнадцатеричную форму чисел.
Кодовые таблицы бывают разные, но для широко используемой кодировки Windows-1251 в результате перевода этих значений получится такой текст:
<u>5 баллов</u>
Var
x:integer;
begin
for x:=-5 to 5 do Writeln(x:2,x*x+5:4)
end.
<u>Результат</u>
-5 30
-4 21
-3 14
-2 9
-1 6
0 5
1 6
2 9
3 14
4 21
5 30
Метод-координат.
вот твой вопрос???
............
