Определите, при каких целочисленных значениях переменной w логическая формула неw( < 7) или (w < 0) примет значение ложь.

Program z567;

 Var a: array [1..30] of integer;

     b: array [1..20] of integer;

     i,max,p,min:integer; s:real;

     

Begin

 for i:=1 to 30 do

   a[i]:=random(10)-5;

 for i:=1 to 20 do

   b[i]:=random(10);

 

 for i:=1 to 30 do

   write(a[i],'  ');

 

 p:=1;

 for i:=1 to 30 do

   if (a[i] > 0) then p:=p*a[i];

   

 writeln('');  

 writeln('1-ое задание: ', p);

 

 for i:=1 to 20 do

   write(b[i],'  ');

 

 max:=b[1];

 for i:=2 to 19 do

   if (b[i] > max) then max:=b[i];

   

 min:=b[1];

 for i:=2 to 19 do

   if (b[i] < min) then min:=b[i];

   

 s:=(min+max)/2;

 writeln('');  

 writeln('2-ое задание: ', s);

End.

/

Welcome to GDB Online.

GDB online is an online compiler and debugger tool for C, C++, Python, Java, PHP, Ruby, Perl,

C#, VB, Swift, Pascal, Fortran, Haskell, Objective-C, Assembly, HTML, CSS, JS, SQLite, Prolog.

Code, Compile, Run and Debug online from anywhere in world.

/

#include <stdio.h>

#include <iostream>

#include <math.h>

int main()

{

  int x=0;

 std::cin >> x;

  int tmp = round(sqrt(x));

if (sqrt(x) == tmp && tmp % 2 != 0){

   std::cout << true;

}

else{

   std::cout << false;

}

   return 0;

}