Діаграми використовують для того щоб графічно показати відображення числових данихз певної інформації,числових даних у звітах,на слайдах презентації ,рекламних сторінках тощо.ВІснує три типи діаграм кругова,точкова ,гістограма
Var
i, c, p: integer;
ar: array[1..8]of integer;
begin
c := 0;
p := 1;
for i := 1 to 8 do
begin
ar[i] := random(1, 10);
write(ar[i], ' ');
if(ar[i] mod 2 = 0) then c := c + 1
else p := p * ar[i];
end;
writeln;
writeln(p);
writeln(c);
end.
1)
a = int(input("a = "))
b = int(input("b = "))
c = int(input("c = "))
if a<b: min = a
else: min = b
if c<min: min = c
s = a+b+c-min
print("Сумма 2 наибольших =",s)
Пример:
a = 45
b = 32
c = 74
Сумма 2 наибольших = 119
2)
a = int(input("a = "))
b = int(input("b = "))
if a>b:
c = a
a = b
b = c
print("a =",a," b = ",b)
Пример:
a = 45
b = 32
a = 32 b = 45
#include <bits/stdc++.h>
using namespace std;
int main()
{
freopen("input.txt","r",stdin);
freopen("output.txt","w",stdout);
string S;
getline(cin, S);
for (int i=0; i<S.length(); i++)
{
if (S[i]<='9' && S[i]>='0')
{
int k=i;
while (S[k]<='9' && S[k]>='0') k++;
string A="";
for (int j=0; j<i; j++)
A=A+S[j];
A=A+"zz";
for (int j=k; j<S.length(); j++)
A=A+S[j];
S=A;
}
}
cout << S;
}
//про пустые строки не очень поняла. могла где то допустить ошибку, но вроде все как то так
<em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var t:=a.Partition((x,i)->i.IsEven);
var s:=t[0].Interleave(t[1].OrderByDescending(x->x));
if a.Length.IsOdd then a:=s.ToArray+Arr(a.Last)
else a:=s.ToArray;
a.Println
end.
<u>Примеры</u>
n= 14
42 -8 41 -26 -28 -44 -27 -24 13 -20 16 19 37 -26
42 19 41 -8 -28 -20 -27 -24 13 -26 16 -26 37 -44
n= 15
-21 41 32 8 -23 23 23 9 35 45 -42 37 -11 -8 22
-21 45 32 41 -23 37 23 23 35 9 -42 8 -11 -8 22