Читайте также:
|
|
Даны два целых числа А и В (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.
Задание 5.5
Дано целое число N(>0). Найти сумму N*2+(N+1)*2+…+(N+55)*2.
Рис.5.5 – Блок-схема алгоритма
Листинг программы
program primer11;
var I,N,S:integer;
begin
write('N=');
readln(N);
for I:=0 to 55 do
S:=(N+I)*2+S;
write('S=',S);
Writeln(‘Программу составила Зарипова Ирина Булатовна − студентка группы КС-111’);
readln;
end.
Дата добавления: 2014-12-23; просмотров: 27 | Поможем написать вашу работу | Нарушение авторских прав |