<span>#include <iostream>
</span><span>#include <iomanip>
</span><span>using namespace std;
</span>void inmas(int* ms,int n) {
<span> for (int i=0; i<n; i++) cin>>ms[i];
</span><span>}
</span>float smas(int* ms,int n) {
<span> int s=0;
</span><span> for (int i=0; i<n; i++) s+=ms[i];
</span><span> return float(s);
</span><span>}
</span>void rezm(int* a, int* b, float* c, float* s, int n) {
<span> for (int i=0; i<n; i++)
</span><span> c[i]=*s/(a[i]+b[i]);
</span><span>}
</span>int main() {
<span> int n;
</span><span> cout<<"n = "; cin>>n;
</span><span> int a[n],b[n];
</span><span> float c[n];
</span><span> float s;
</span><span> cout<<"massiv a: ";
</span><span> inmas(a,n);
</span><span> cout<<"massiv b: ";
</span><span> inmas(b,n);
</span><span> s=smas(a,n);
</span><span> cout<<"summa = "<<s<<endl;
</span><span> rezm(a,b,c,&s,n);
</span><span> cout<<"massiv c: ";
</span><span> for (int i=0; i<n; i++)
</span><span> cout<<setprecision(3)<<c[i]<<" ";
</span><span> cout<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>n = 8
<span>massiv a: 1 2 3 4 5 6 7 8
</span><span>massiv b: 5 6 7 8 9 10 11 12
</span><span>summa = 36
</span><span>massiv c: 6 4.5 3.6 3 2.57 2.25 2 1.8
</span>
Первая программа:
Var S,A:integer;
Begin
S:=0;
For A:= 5 to 45 do
if A mod 4 = 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 260
Вторая программа:
Var A,S:integer;
Begin
S:=0;
For A:= 79 to 205 do
if A mod 2 <> 0 then S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 9088
Третья программа:
Var
x:byte;
Begin
WriteLn('f(x) = x^2');
For x:= 1 to 20 do
WriteLn('f(',x/2:3,') = ',Sqr(x/2))
End.
Результат работы программы:
f(x) = x^2
f(0.5) = 0.25
f( 1) = 1
f(1.5) = 2.25
f( 2) = 4
f(2.5) = 6.25
f( 3) = 9
f(3.5) = 12.25
f( 4) = 16
f(4.5) = 20.25
f( 5) = 25
f(5.5) = 30.25
f( 6) = 36
f(6.5) = 42.25
f( 7) = 49
f(7.5) = 56.25
f( 8) = 64
f(8.5) = 72.25
f( 9) = 81
f(9.5) = 90.25
f( 10) = 100
Это ссылка из которой не возращаються
<h3>PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger;
if n.IsEven then n.ToString.ToCharArray.PrintLines
end.
<h2>518</h2><h2>5</h2><h2>1</h2><h2>8</h2>
100%-10%=90% стоит покупка после скидки
500:100%*90%=450 рублей - стоимость покупки с учетом скидки