Написать программу, которая выводит на экран сумму ряда
пусть a – числитель; b – знаменатель; da и db – шаг для числителя и знаменателя; n - для смены знака; Программа: const da= -18; {927-945} db= 24; {33-9} var a,b,n: integer; s: real; begin s:=0; n:=1; a:=945;b:=9; while a>=27 do begin s:=s+a/b*n; {подсчет суммы} a:=a+da; b:=b+db; n:= -1*n; {изменение знака} end; writeln('s=',s:4:2); end.
Привет. Написал программы только на первые три задания. Может другим "про-кодерам" он не понравится,зато работает, принимай:
Задача 1: var p: array[1..10] of integer; i:integer; count:integer; begin for i:=1 to 10 do read(p[i]); write('Сколько цифр массива хотите видеть? -> '); readln(count); for i:=1 to count do write(p[i]:3); end.
Задача 2:
var arr: array[1..10] of integer; i:integer; s:integer; count:integer; begin for i:=1 to 10 do begin arr[i]:=Random(-10,10); if(arr[i]<0) then begin writeln(arr[i]:4); s:=s+arr[i]; count:=count+1; end; end; writeln('Среднее значение = ', s/count); end.
Задача 3:
var arr: array[1..10] of integer; i:integer; crat:integer; id:integer; begin for i:=1 to 10 do begin read(arr[i]); crat:=arr[i] mod 3; if(crat = 0) then begin id:=arr[i]; if(arr[i] = id) then writeln('Id = ', i:2); end; end; end.
пусть a – числитель; b – знаменатель; da и db – шаг для числителя и знаменателя; n - для смены знака;
Программа:
const
da= -18; {927-945}
db= 24; {33-9}
var a,b,n: integer;
s: real;
begin
s:=0; n:=1; a:=945;b:=9;
while a>=27 do
begin
s:=s+a/b*n; {подсчет суммы}
a:=a+da;
b:=b+db;
n:= -1*n; {изменение знака}
end;
writeln('s=',s:4:2);
end.