Регистрация
боня51
29.10.2022 08:23
Информатика
Есть ответ 👍

Написать в паскале: for s=1+1/2+1/3+1/4+1/5

212
376
Посмотреть ответы 2

Ответы на вопрос:

vanchugovp02hjd
vanchugovp02hjd
4,6(97 оценок)
Var     s: real;     n: integer; begin s: =0; write('n = '); readln(n); for n: = 1 to n do       s: =s+1/n; writeln('s = ',s); end. n = 5 s = 2.28333333333333
AENabatov
AENabatov
4,6(14 оценок)
Program krug;   uses graphabc;   var x,y,r,i: integer;   begin   setwindowsize (640,480);   setwindowtitle ('êðóã');   setpencolor (clred);   setpenwidth (4);   x: =50;     y: =50;   r: =40;   for i: =1 to 10 do   begin   circle(x,y,r);   x: =x+80;   end;   end. такое пойдёт?

Популярно: Информатика