Скажите сработает ли программа в Паскале program z1; var i: integer; begin for i:= 100 to 999 do if (( i mod 2 = 0) and ( i mo
Скажите сработает ли программа в Паскале program z1; var i: integer; begin for i:= 100 to 999 do if (( i mod 2 = 0) and ( i mod 7 = 0)) then writeln (i); end.
И если можно напишите блок схему по задаче : среди трёх значных чисел найти все числа кратные 2 и 7 и выведите их