9 10
* 1 |
12
1 1 1 2 1
7. І.
3
14. 1
5. 16.
1. Переведите числа в двоичную систему счисления:
а) 456; 802; 710
2. Переведите числа на одной системы счислення в другую:
а) 7352810 = X16
3. Переведите числа в десятичную систему счислення:
а) 10110101110;
б) 7341
в) ABOID16
г) 43212
д) 81035)
4. Выполните сложенне чисел в двоичной системе счисления:
а) 1000110101, + 1111010, =
б) 11111111, + 10001111=
5. Выполните умножение чисел в двоичной системе счисления:
а) 11111; * 101112 =
б) П 12 * 101010, =
6. Выполните действия:
а) 205 + 1374.
б) 2314 x 1314
7. Вычислите сумму. Результат представьте в Д. Вончной системе счисления:
А516 + 1234 + 101 + 1010 =
2. Решите задачу.
Один ученик написал: «У меня 100 конфет. Я поровну разделил их между мной и двумя
моими друзьями. Каждому досталось по 1 конфет, и одна осталась лишней». Какую
систему счисления использовал ученик и сколько у него было конфет в десятичной
русский
AB​

1) var a,b,x:real;
begin
write ('введите числа а и b: '); readln(a,b);
x:=-b/a;
writeln('x= ',x);
end.
2) var r1,r2,s:real;
begin
write ('введите размеры внешнего и внутреннего радиусов: '); read(r1,r2);
s:=pi*r1*r1-pi*r2*r2;
write ('Площадь кольца = ',s);
end.
3) var a,b,c,s,p:real;
begin
write ('введите длины катетов: '); read(a,b);
s:=a*b/2;
c:=sqrt(a*a+b*b);
p:=a+b+c;
write ('Площадь треугольника = ',s);
write ('Периметр треугольника = ',p);
end.
4)  var a,b,sr:real;
begin
write ('введите числа а и b: '); readln(a,b);
sr:=(abs(a)+abs(b))/2;
writeln('среднее арифметическое модулей = ',sr );
end.

5) var x1,y1,x2,y2,r:real;
begin
write ('введите координаты точек: '); readln(x1,y1,x2,y2 );
r:=sqrt ( sqr(x2-x1)+sqr (y2-y1));
writeln('расстояние = ',r );
end.
6)  var a,b,h, s, p:real;
begin
write ('введите длины оснований и высоту трапеции: '); readln(a,b,h);
s:=(a+b)*h/2;
p:=a+b+h+sqrt (sqr(abs(a-b))+h*h);
write ('Площадь трапеции = ',s);
write ('Периметр трапеции= ',p);
end.
7) var a,e,d,s, p:integer;
begin
write ('введите трехзначное число: '); readln(a);
e:=a mod 10; s:=a div 100;
d:= (a div 10) mod 10; p:=e*d*s;
write ('разность между трехзначным числом и его произведением = ',a-p);
end.
 к твоему комментарию 
var x,s,m,c: integer;
begin
write('введите количество секунд: ');readln(x);
c:=x div 3600;
m:= (x mod 3600) div 60;
s:=(x mod 3600) mod 60;
часов ',m,' минут ', s,' секунд ');
end.

3, 6 (но с уловием, что это последняя строка кода перед end.)

Объяснение:

1.) if x>0 or y>0 then k:= k+1 else k:= 0; - неверно, потому что при использовании and или or сравниваемые условия необходимо указывать в ( )

2.) if 10 then k:= k+1; - должно быть указано условие, просто число не может быть условием (по крайней мере в pascal)

3.) if x<>0 then y:=100/x; - всё ОК

4.) if x - нет then,

5.) if x>0 then y:= 100 div x; else y:= 0; - перед else не ставится ;

6.) if (x mod y=0) then else writeln(‘no’) - всё ОК, с условием, что это последняя срока кода перед end. Если условие будет истинно, то просто ничего не выполнится. И ещё небольшой комментарий: символ ’ не используется для написания строки, нужен символ '. Возможно это ты малость ошибся, при переписывании задания