Можно составить такую конструкцию:
if a=b then a:=c
Что соответствует цифрам вариантов ответа: 2 3 4 1
program z1;
var
s,w:integer;
begin
writeln('Введите число зубов Кузьки');
readln(s);
writeln('Введите число зубов бабы Дуси');
readln(w);
if s>w then writeln('У Кузьки зубов больше') else writeln('У бабы Дуси зубов больше')
end.
Подробнее - на Znanija.com - znanija.com/task/30754761#readmore
При переводе из десятично системы счисления мы делим на цифру системы счисления в которую переводим.
При переводе из двоичной в 16-ую мы отделяем по четыре числа начиная справа,далее мы смотрим по готовой таблице какие числа. В 8-ую тоже самое только отделяем по 3 цифры.
Вот если что таблица по которой мы переводим:
0-0000
1-0001
2-0010
3-0011
4-0100
5-0101
6-0110
7-0111
8-1000
9-1001
10-1010 A
11-1011 B
12-1100 C
13-1101 D
14-1110 E
15-1111 F
Ну и при переводе из 16-ой в 2-ую мы так же смотрим на таблицу.
При переводе в 10-ую СС мы в верхнем регистре выставляем разряды и слева на права умножаем цифру на систему счисоения водведенную в степень выставленого регистра.
//1
var x: real;
begin
write('x = ');
readln(x);
writeln(abs(10 - sqrt(1 + x * x)));
end.
//2
begin
randomize;
writeln(random(15) + 21);
end.
//3
var a, b: real;
begin
write(' Катет a = ');
readln(a);
write(' Катет b = ');
readln(b);
writeln(' Гипотенуза = ', sqrt(a * a + b * b));
end.
Смотря сколько цветов. Если в Палитре 256 цветов, то 256 * 4 = 1024 бита памяти. Если не так то поправьте меня.
