Но́рберт Ви́нер (англ. Norbert Wiener; 26 ноября 1894, Колумбия, штат Миссури, США — 18 марта 1964, Стокгольм, Швеция) — американский учёный, выдающийся математик и философ, основоположник кибернетики и теории искусственного интеллекта.
Var x, y: real;
begin
x := 5;
writeln('x', #9, 'y');
while(x >= 0) do begin
write(x:0:1);
y := sqr(x) - 7*x;
write(#9, y:0:2);
x := x - 0.1;
writeln;
end;
<span>end.</span>
Var n,i:integer; s:real;
begin
readln(n);
s:=0;
for i:=0 to n do s:=s+1/(2*i+1);
writeln('s = ',s);
end.
Пример:
5
<span>s = 1.878210678210678e+00</span>
109(10)= 11001(3)
109:3= 36, ост 1
36:3=12 ост 0
12:3=4 ост 0
4:3=1 ост 1
И потом надо записывать остатки в обратном порядке , то есть 1 1 0 0 1= 11001. И так из десятичной можно перевести троичную: 1) делить на 3 пока не останется число меньше 3, 2) записать остатки в обратном порядке
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='o' then s[i]:='a';
write(s);
end.