Наталья
4 год назад
ПОСОГИТЕ ПОЖАЛУЙСТА С ИНФОРМАТИКОЙ!!! ШКОЛЬНАЯ ПРОГРАММА 8 КЛАССА!!
ОТВЕТЫ
Emil
Oct 24, 2020
- n, i, j, sum, count, countEven, countOdd: integer;
- readln(n);
- i := 1000 to 9999 do
- sum := 0;
- j := 1 4 do
- sum := sum + i.ToString[j].ToDigit;
- sum = n
- write(i, ' ');
- count := count + 1;
- i mod 2 = 0 countEven := countEven + 1
- countOdd := countOdd + 1;
- ;
- ;
- Println('Количество: ', count);
- Println('Четных: ', countEven);
- Println('Нечётных: ', countOdd);
- .
- Единственное, что здесь может быть не из 8 класса - это i.ToString[j].ToDigit, но если не нравится можно поменять на StrToInt(i.ToString[j])
885
Смежные вопросы:
