Задание 2. writeln('Vvedite chislo:')

Блок-схема программы

Код программы

program Lab2;

usesSysUtils;

var n,i,Sum:integer;

begin

writeln('Vvedite chislo:');

readln(n);

Sum:=0;

for i:=1 to n do

Sum:=Sum+(2*i-1)*(2*i+1);

writeln('Summa ravna:', Sum);

readln;

end.

Пример работы программы

Задание 3

Блок-схема программы

Код программы

program Lab3;

uses SysUtils;

var a,y,y0,x: Real;

begin

writeln('Vvedite a:');

readln(a);

x:=1;

y:=sin(a*x);

writeln('sin(',a:7:2,'*',x,')=',y:11:8);

x:=x+1;

y0:=sin(a*x);

writeln('sin(',a:7:2,'*',x,')=',y0:11:8);

while (y0>y) do

begin

x:=x+1;

y:=y0;

y0:=sin(a*x);

writeln('sin(',a:7:2,'*',x,')=',y0:11:8)

end;

readln;

end.

Пример работы программы

Задание 4

Блок-схема программы