Write a program that determines two numbers entered on the keyboard
| November 25, 2020 | education
program zadacha2;
uses crt;
var i, n, a: integer;
b, y, c, l: real;
begin
clrscr;
readln (n);
a: = 1;
b: = 2;
c: = 5;
for i: = 1 to n do
begin
if a mod 2 = 0 then
l: = a + b / c
else
l: = a-b / c;
a: = a + 1;
b: = b + 2;
c: = c + 5;
y: = y + l;
end;
writeln (y: 2: 2);
readkey;
end.
One of the components of a person's success in our time is receiving modern high-quality education, mastering the knowledge, skills and abilities necessary for life in society. A person today needs to study almost all his life, mastering everything new and new, acquiring the necessary professional qualities.
