Если Pascal:
var
n: byte;
i: integer;
begin
readln(n);
for i:=100 to 999 do
if ((i mod 10) + ((i div 10) mod 10) + (i div 100)) = n then writeln(i);
end.
Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017// Внимание! Если программа не работает, обновите версию!
Ответ: 19 клеток,
клетка финиша а1 не учитывается
Нажимаешь пуск, все программы, ищешь папку Майкрософт офис там будет.
помогла ставь спасибо!
#include <iostream>
#include <stdlib.h>
using namespace std;
int main() {
const int n = 10;
int a[n];
int k=0;
srand(time(0));
for (int i = 0; i < n; i++) {
a[i]=-20 + (101.0 / RAND_MAX) * rand();
cout << a[i] << " ";
}
cout <<"\n";
cout << "Чётные числа:\n";
for (int i = 0; i < n; i++){
if (a[i] % 2 == 0) {
cout << a[i] << " ";
k++;
}
}
cout <<"\n";
if (k > n-k) cout << "Чётных больше";
else if (k < n-k) cout << "Нечётных больше";
else cout << "Чётных и нечётных поровну";
cout <<"\n";
return 0;
}
Пример:
<span>27 11 77 59 28 8 59 64 16 80
Чётные числа:
28 8 64 16 80
Чётных и нечётных поровну</span>