Написать программу по информатике! найти произведение - вопрос №1418499 от рыттп 03.10.2020 15:29

Question

Информатика: Написать программу по информатике! найти произведение двузначных нечетных чисел, кратных 13. нужно написать программу на цикле с предусловием, на паскале.

рыттп · Answer

var i, ans: longint; begin i := 10; ans := 1; while i 100 do begin if (i mod 13 = 0) and (i mod 2 0) then ans := ans * i; inc(i); end; writeln(ans);end....