БУДУ ОЧЕНЬ БЛАГОДАРЕН написать текст программы на языке паскаль вычислить значения - id1354411620201226 от arada1 26.12.2020 19:19

Question

Информатика: БУДУ ОЧЕНЬ БЛАГОДАРЕН написать текст программы на языке паскаль вычислить значения >

arada1 · Accepted Answer

N1 var a, b: integer; •​ begin •​ readln(a, b); •​ a := a mod 2; b := b mod 2; •​ if (b 0) and (a 0) then •​ writeln ( четных чисел нет ) •​ else •​ writeln ( четное число есть ); end. N2 #include iostream using namespace std; int main() {   int a;   cin a;   if(a 100 || a 999) cout   Неверное число endl;   else   {     int a1 = a/100;     int a2 = (a/10)%10;     int a3 = a%10;     if(a1%2==a2%2==a3%2==0) cout Да endl;     else cout Нет endl;   }   return 0; }...

БУДУ ОЧЕНЬ БЛАГОДАРЕН написать текст программы на языке паскаль вычислить значения ">

MOGZ ответил