Ввести n чисел. определить сколько среди них положительных и кратных трём. результат получить в переменной k. исходные данные: n=5.

128

415

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

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

Yarik176

Информатика

4,7(89 оценок)

Var k, n: byte; t: integer; begin readln(n); for i: byte : = 1 to n do begin readln(t); if ((t > 0) and (t mod 3 = 0)) then k += 1; end; writeln(k); end. алг нач цел k, i, n, t k : = 0 ввод n нц для i от 1 до n ввод t если ((t > 0) и (mod(t, 3) = 0)) то k : = k + 1 все кц вывод k кон

Тане44ка

Информатика

4,6(53 оценок)

На первое место мы можем поставить любую из 5 букв, на второе, по условию оставшиеся из 4, но мы должны повторить эту букву еще раз, т.е. у нас будет всего 1 вариант для одного из слотов, ну и на оставшиеся 2 места мы можем поместить любую из 3х. таких перестановок можно сделать 3 штуки(сразу перемножим их): 5 4 1 3 3 = 180 5 4 3 1 3 = 180 5 4 3 3 1 = 180 отсюда ответ: 180*3 = 540