Сначала переводим число в 10 систему счисления (фото 1 под 1)) т.к. получается очень большая дробная часть число полностью не выписывала (красные цифры это значение букв на которое надо умножать) сможете выписать весь ответ с фото 4
Далее уже получившееся число переводим из 10 системы счисления в 7 отдельно целую и дробную части (фото 1 под2)) дробную часть написала частично расчеты можете продолжить самостоятельно (полный ответ на рисунке 3)
Var A:integer; S:real; Begin {Первый S:=0; For A:= 1 to 50 do S:=S+1/A; WriteLn('S = ',S); {Второй S:=0; A:=1; Repeat S:=S+1/A; A:=A+1; Until A>50; WriteLn('S = ',S); {Третий S:=0; A:=1; While A<=50 do Begin S:=S+1/A; A:=A+1; End; WriteLn('S = ',S) End.
Var x:real; Begin x:=-3; Repeat WriteLn('y(',x,') = ',((3*x*x-2)/4):0:3); x:=x+0.2 Until x>3.2; End.
Var A:real; k,i:integer; Begin k:=0; WriteLn('Введите десять чисел'); For i:= 1 to 10 do Begin Read(A); if A<0 then k:=k+1 End; WriteLn('k = ',k) End.
Задание 2
Сначала переводим число в 10 систему счисления (фото 1 под 1)) т.к. получается очень большая дробная часть число полностью не выписывала (красные цифры это значение букв на которое надо умножать) сможете выписать весь ответ с фото 4
Далее уже получившееся число переводим из 10 системы счисления в 7 отдельно целую и дробную части (фото 1 под2)) дробную часть написала частично расчеты можете продолжить самостоятельно (полный ответ на рисунке 3)
аналогично с переводом в 17 и 22 системы
Задание 3
1-10)0 1 2 3 4 5 6 7 8 9 A
11-20) B C D E F G H I J K
21-30) 10 11 12 13 14 15 16 17 18 19
31-40) 1A 1B 1C 1D 1E 1F 1G 1H 1I 1J
41-50) 1K 20 21 22 23 24 25 26 27 28
51-60) 29 2A 2B 2C 2D 2E 2F 2G 2H 2I
61-70) 2J 2K 30 31 32 33 34 35 36 37