fork download
copy 
  1. program RIAD;
  2.     var
  3.       i, j, n1, n2: integer;
  4.       Y1, Y2, Y3: real;
  5.     begin
  6.       write('vvedite n1= ');
  7.       readln(n1);
  8.       write('vvedite n2= ');
  9.       readln(n2);
  10.       n1:=5; 
  11.       n2 := 6;
  12.       Y1 := 1;
  13.       for i := 3 to n1 - 1 do
  14.         Y1 := Y1 + (1) * 1 / i;
  15.       writeln('Y1=', Y1:8:4);
  16.  
  17.       Y2 := 1;
  18.       for j := 2 to n2 do
  19.         Y2 := Y2 + (1) * 1 / i;
  20.       writeln('Y2=', Y2:8:4);
  21.       readln;
  22.       Y3 := Y1 - Y2;
  23.        writeln('Y3=', Y3:8:4);
  24.     end.
Success #stdin #stdout 0s 4140KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
vvedite n1= vvedite n2= Y1=  1.5833
Y2=  2.2500
Y3= -0.6667
https://ideone.com/1nwZV3
language:
Pascal (fpc 3.0.4)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!