Изменить программу, чтобы работала в Паскале: Const Sz=100; Var i: Integer; a:array[1..Sz]of integer; - id1593801120220525 от tata535268 25.05.2022 00:05

Question

Информатика: Изменить программу, чтобы работала в Паскале: Const Sz=100; Var i: Integer; a:array[1..Sz]of integer; N:Integer ; Begin N:=20; For i:=1 to N do a[i]:=random (100); WriteLn( Эл. массива ); For i:=1 to N do Write (a[i], ); WriteLn ; For i:=1 to N div 2 do Swap(a[i],a[N-i+1]); WriteLn( После инвертирования: ); For i:=1 to N do Write (a[i], ); End. ​

tata535268 · 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 ответил