3) 45
4)
Program z4; Var b,a,i,m:integer; Begin read(b);for i:=1 to b do beginread(a);if a>0 and (a mod 2 = 0 )then m:=m+a; end;writeln(m);End.
Алгоритм 21211
вычти 1: 27-1=26
раздели на 2: 26/2=13
вычти 1: 13-1=12
раздели на 2: 12/2=6
раздели на 2: 6/2=3
Ответ: 21211
#include <iostream>
using namespace std;
int main()
{
double sum = 0;
for (int i = 0; i < 10; i++)
{
int x;
cin >> x;
sum += x;
}
cout << sum / 10;
return 0;
}
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32
#include <iostream>
using namespace std;
int main(){
int value;
cout << "vvedite chislo: ";
cin >> value;
for (int i = 1; i <= value; i++){
if (value % i ==0) cout << i << " ";
}
}
сейчас стоит сорт с меньшего по большее, если нужно наоборот, то цикл for перепиши так:
for(int i = value; i>0; i--){тело цикла не меняй}