Program BiFi;
Var x,a,s:real;
k,i:integer;
Begin
readln(x);
readln(k);
s:=0;
a:=x;
for i:=1 to k do begin a:=a/x;
s:=s+a;
writeln(s:6:3);
readln;
end.
Вопрос неправильно скорректирован.
Для представления текстовой информации в компьютере используется алфавит мощностью 256 символов. Один символ из такого алфавита несет 8 бит информации (28 =256). 8 бит =1 байту, следовательно, двоичный код каждого символа в компьютерном тексте занимает 1 байт памяти.
Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.
штоби произвости в иксел математическоє уравнения нужно 1.нажать на квадрат где ти хочешь получить ответ
2.на клавиатуре нажать =
3. нажать на первою колонку где первая цифра
4.нажать +; - ; × ; ÷ .
5. Нажать на другую колонку где вторая цифра.
6. Нажать ЕНТЕР
Я разговариваю с соседом, который сидит со мной за одной партой.
Мы видим дежурного и расписание.
Солнечный день радует нас.