Задание 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.

Задание 5.6

Дано вещественное число А и целое число N(>0). Найти А в степени N.

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

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

program primer12;

var A,C:real;N,I:integer;

begin

write('A=');

readln(A);

write('N=');

readln(N);

for I:= 1 to N do

C:=A*I;

write('C=',C);

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

readln;

end.