Алгоритм решения задачи

1. Нахождение среднего геометрического числа а и b.

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

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

Program primer;Var a,b:Real;BeginReadLn(a);Resdln(b);WriteLn('Sqrt(a*b) = ',Sqrt(a*b);ReadLn;End.

Циклы.

Задача 5.1

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

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

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

program primer7;

var S,I,A,B:integer;

begin

write('A=');

readln(A);

write('B=');

readln(B);

for I:=A to B do

S:=S+I;

write('S=',S);

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

readln;

end.

Задача 5.2

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

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

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

program primer8;

var P,I,A,B:integer;

begin

write('A=');

readln(A);

write('B=');

readln(B);

P:=1;

for I:=A to B do

P:=P*I;

write('P=',P);

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

readln;

end.