Составьте программу вычисления количества трехзначных чисел , у которых сумма цифр является четным числом,

279

476

Посмотреть ответы 2

Ответы на вопрос:

Sanpotion

Информатика

4,4(55 оценок)

Var i1, i2, i3: 1..9; //цифры трехзначного числа i, n: integer; //n - количество трехзначных чисел, у которых begin n: = 0; //обнуляем счетчик for i: = 100 to 999 do //перебираем все трехзначные числа и считаем количество begin i1: = i div 100; i2: = (i mod 100) div 10; i3: = i mod 10; if (i1 + i2 + i3) mod 2 = 0 then n: = n + 1; end; writeln('количество трехзначных чисел, у которых сумма цифр является четным числом равна: ', n); //выводим количествоend. если все правильно, отметь решение как лучшее)

Hacтяя

Информатика

4,4(28 оценок)

Var i,s: integer; begin i: =1; s: =0; repeat s: =s+i; i: =i*2; until i> 256; writeln('s = ',s); end.второй вариант: var s: integer; begin s: =1 shl 9 - 1; writeln('s = ',s); end. s = 511