Информатика 6 класс 146 страница 6 задание ​

program Multi3;

var

 A: array [1..3] of Double;

 i: Integer;

 p: Double;

 b: Boolean;

begin

 Randomize;

 Write ('Исходные числа:');

 WriteLn;

 for i := 1 to 3 do begin

   A [i] := Random (4000) / 1000 - 1;  // заполняем числами, чтоб были и положительные и отрицательные

   Write (A[i] :10 :3, ' ');

 end;

 b := False;

 p := 1;

 for i := 1 to 3 do begin

   if Abs (A [i]) < 1 then begin

     b := True;    // включаем флаг, если найдено хотя бы одно подходящее число

     p := p * A [i];

   end;

 end;

 WriteLn;

 if b then

   WriteLn ('Произведение = ', p :10 :3)

 else

   WriteLn ('Произведение не определено.');

 ReadLn;

end.

#include <iostream>

using namespace std;

int main()

{

 int a, b, c, febrary;

 bool isValid;

 //setlocale(LC_ALL, "Russian");

 cout << "Day:";

 cin >> a;

 cout << "Month:";

 cin >> b;

 cout << "Year:";

 cin >> c;

 if (c % 4 == 0)

   febrary = 29;

 else

   febrary = 28;

 isValid = true;

 if (b < 1 || b > 12)

   isValid = false;

 if (a < 1 || b > 31)

   isValid = false;

 if (b == 4 || b == 6 || b == 9 || b == 11)

   isValid = false;

 if (b == 2 && a > febrary)

   isValid = false;

 if (isValid)

   cout << "yes";

 else

   cout << "no";

}