Используя язык программирования pascal, написать программу, которая вычисляет следующую сумму s= (2*4)/(1+*8)/(2+3)+(10*12)/(3+*56)/(14+15) и выводит ее результат. писать нужно через цикл, желательно, с пояснением.
Var i,z:integer; a,s:real; begin s:=0; z:=-1; for i:=1 to 56 div 4 do begin z:=-z; a:=z*(i*4-2)*(i*4)/(i+i+1); // для наглядности: writeln(z,' ',i*4-2,' ',i*4,' ',i,' ',i+1); s:=s+a; end; writeln('s = ',s); end.
#include <iostream> #include <locale> using namespace std; int main() { setlocale(LC_ALL,"Rus"); long long int A; cout << "Введите целое число: ", cin >> A; if (A < 0) A = -A; int i = 0; while (A > 0) { if (i++ % 2 != 0) cout << A % 10 << " "; A /= 10; } return 0; }
Предполагается, что нумерация начинается права, с нулевой позиции. Чтобы изменить номер начальной позиции, например, на единицу, нужно изменить десятую строку на int i = 1;
// PascalABC.NET 3.2, сборка 1467 от 02.06.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('Аргумент Функция'); var s:=0.0; var x:=0.5; var f:real; var b:=true; while x<=3 do begin if b then f:=sin(x) else f:=cos(x); Writeln(x:6:1,f:14:6); b:=not b; x:=x+0.5; s:=s+f end; Writeln(' Сумма',s:13:6) end.
Результат Аргумент Функция 0.5 0.479426 1.0 0.540302 1.5 0.997495 2.0 -0.416147 2.5 0.598472 3.0 -0.989992 Сумма 1.209556
begin
s:=0; z:=-1;
for i:=1 to 56 div 4 do
begin
z:=-z;
a:=z*(i*4-2)*(i*4)/(i+i+1);
// для наглядности:
writeln(z,' ',i*4-2,' ',i*4,' ',i,' ',i+1);
s:=s+a;
end;
writeln('s = ',s);
end.
Результат:
1 2 4 1 2
-1 6 8 2 3
1 10 12 3 4
-1 14 16 4 5
1 18 20 5 6
-1 22 24 6 7
1 26 28 7 8
-1 30 32 8 9
1 34 36 9 10
-1 38 40 10 11
1 42 44 11 12
-1 46 48 12 13
1 50 52 13 14
-1 54 56 14 15
s = -54.4163713045239