Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Программирование на Pascal / Delphi / Лабораторная работа1 / Lab_3(1)
.pas program lab3;
var
n:integer;
sum,b,a:real;
begin
writeln('Ќ 室Ё¬ ЇҐаўл© з«Ґ Ў®«миЁ© 1');
n:=1;
while a<1 do
begin
a:=(3*n*n)/(20*n);
n:=n+1;
sum:=sum+a;
end;
b:=sin(sum);
writeln('Ё¤ҐЄб з«Ґ а ўҐ ',n-1);
writeln('з«Ґ а ўҐ ',a);
writeln('бЁгб б㬬л з«Ґ®ў а ўҐ ',b);
readln;
readln;
end.
var
n:integer;
sum,b,a:real;
begin
writeln('Ќ 室Ё¬ ЇҐаўл© з«Ґ Ў®«миЁ© 1');
n:=1;
while a<1 do
begin
a:=(3*n*n)/(20*n);
n:=n+1;
sum:=sum+a;
end;
b:=sin(sum);
writeln('Ё¤ҐЄб з«Ґ а ўҐ ',n-1);
writeln('з«Ґ а ўҐ ',a);
writeln('бЁгб б㬬л з«Ґ®ў а ўҐ ',b);
readln;
readln;
end.
Соседние файлы в папке Лабораторная работа1