Ақпараттарды компьютерде жүктеу мен оны іске қосар алдында сақтайды​

var

 n,m:integer;

begin

 writeln('Задача 1');

 readln(n,m);

 if n>=m then  

   writeln('Неправильная')

     else writeln('Правильная');

 writeln;

 writeln('Задача 2');

 n:=random(20); m:=random(20);

 writeln(n,' ',m);

 if n mod m = 0 then  

   writeln('Делится нацело')

     else writeln('Не делится нацело');

 writeln;

 writeln('Задача 3');

 readln(n,m);

 if n<=m then

   if n=m then writeln('Равные')

     else  writeln(n)

     else writeln(m);

end.

Если моё решение вам, пометьте его лучшим !

Объяснение:

#include <iostream>

using namespace std;

int main()

{

   //1 - 2 задания

   setlocale(LC_ALL, "Russian");

   system("color A");

   int A,a;

   cout << "Введите число: ";

   cin >> a;

   while (a--)

       cout << a << ' ';

   cout << endl;

   //2

   cout << "Введите число: ";

   cin >> A;

   A -= !(A & 1) + 2;

   while ((A += 2) < 1000)

   {

       cout << A << ' ';

   }

}

//

//3 задание

#include <iostream>

using namespace std;

int main()

{

   for (int i = 1; i < 10; i += 2)

       cout << i * i << ' ';

}