Задание 5.3

Даны два целых числа А и В (A<B).Найти сумму квадратов всех целых чисел от А до В включительно.

Рис.11 – Блок-схема алгоритма

Листинг программы

program primer9;

var I,S,A,B:integer;

begin

write('A=');

readln(A);

write('B=');

readln(B);

for I:=A to B do

S:=I*I+S;

write('S=',S);

end.

Задание 5.4

Дано целое число N (>0). Найти сумму 1+1/2+1/3+…+1/N.

Рис.5.4 – Блок-схема алгоритма

Листинг программы

program primer10;

var I,N:integer; S:real;

begin

write('N=');

readln(N);

for I:=1 to N do

S:=1/I+S;

write('S=',S);

Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);

readln;

end.