Что надо сжечь сделать напиши в то я не поняла ))
Все верно. Но лучше использовать заместо цикла while, цикл for. И не нужна запись str, и.к. Изначально ужевводится в строковом виде
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,-100,100); a.Println;
var n:=a.Where(x->x.IsEven).Count;
Writeln('Четных- ',n,', нечетных- ',10-n)
end.
<u>Пример</u>
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6
#include <iostream>#include <cstdlib>using namespace std;
int main(){ int a, b, c = 0; cin >> a >> b; if (abs(a) > abs(b)) swap (a, b); for (int i = 0; i < abs(a); i++) { if ((a >= 0 && b >= 0) || (a < 0 && b < 0)) c += abs(b); else c -= abs(b); } cout << c; return 0;}