Var N, k, i: integer;
begin
write(' N = ');
readln(N);
k:=0;
for i:=N downto 1 do
k:=k+i*i;
writeln ('k=', k);
end.
63ₓ = 3x⁰+2x¹+a₂x²+a₃x³+...
Понятно, что х>3, поскольку в системах счисления с x≤3 невозможно записать цифру 3.
Пусть x=4. x²=16, x³=64, ...
Поскольку даже минимально возможное значение х в третьей степени превышает 63, можно утверждать, что степеней выше 3 в представлении числа 63 нет.
Следовательно, 63=ax²+2x+3, ax²+2x-60=0, x=4,5,6, ...
Если х=8, то х²=64, поэтому для x>7 получаем а=0 и уравнение приобретает вид 2х-60=0 ⇒ х=30. Первое значение х найдено.
При х=4,5,6,7 получаем a=(60-2x)/x², a>0.
x=4 ⇒ a=(60-2×4)/4² = 52/16 = 4 - целое, подходит
x=5 ⇒ a=(60-2×5)/25 = 50/25 =2 - целое, подходит
x=6 ⇒ a=(60-2×6)/36 = 48/36 - нецелое
x=7 ⇒ a=(60-2×7)/49 = 46/49 - нецелое
Получили три значения x: 4, 5, 30
Проверим их.
1)х=4
63/4 = 15, остаток 3
15/4 = 3, остаток 2
3/4 = 0, остаток 3
Выписываем остатки в обратном порядке: 63=323₄
2) х=5
63/5 = 12, остаток 3
12/5 = 2, остаток 2
2/6 = 0, остаток 2
Выписываем остатки в обратном порядке: 63=223₅
3)х=30
63/30 = 2, остаток 3
2/30 = 0, остаток 2
Выписываем остатки в обратном порядке: 63=23₃₀
Ответ: 4, 5, 30
Var a:array[1..10] of integer;
b:array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin;
readln(a[i]);
if a[i]<0 then
begin;
k+=1;
b[k]:=i;
end;
end;
writeln('Индексы отрицательных');
for i:=1 to k do
writeln(b[i]);
writeln('Всего:',k);
end.<span> </span>
Program q3; var: a,b,c,D,x1,x2: real;(вводим переменные) readln(a); readln(b); readln(c);(считываем переменные с клавиатуры) D:=b*b-4*a*c;(формула дискриминанта) if(D<0) then writeln('нет решений');(проверяем дикриминант меньше 0) if(D=0) then do begin x1:=-b/2*a; writeln(x1); end; if(D>0) then do begin x1:=(-b+sqrt(D))/2*a; x2:=(-b-sqrt(D))/2*a;(находим корни) writeln(x1); writeln(x2); end; end.
Машины первого поколения строились на основе электронных (электровакуумных) ламп.