Pascal abcиспользовать цикл for1. найти все такие тройки натуральных чисел x,y и z из интервала от 10 до 30, для которых выполняется равенство x2=z2 *y.2. найти количество натуральных чисел из интервала от 10 до 100 кратных

Задача 1:

#include <iostream>

using namespace std;

int main()

{

int a{}, b{};

cout << "a = ";

cin >> a;

cout << endl << "b = ";

cin >> b;

if (a < b) a *= 2, b *= 3;

else b *= 2, a *= 3;

cout << endl << endl << "a = " << a << endl << "b = " << b;

return 0;

}

Задача 2:

#include <iostream>

using namespace std;

int main()

{

int a{};

cout << "a = ";

cin >> a;

if (!(a % 2)) cout << endl << a * a; //if (!(a % 2)) = теж саме, що й if (a % 2 == 0)

else cout << endl << a * a * a;

return 0;

}

Задача 3:

#include <iostream>

using namespace std;

int main()

{

int sum{};

for (int i = 11; i < 100; i += 2) sum += i;

cout << sum;

return 0;

}

Задача 4:

#include <iostream>

using namespace std;

int main()

{

for (int i = 144; i < 1000; i += 48) cout << i << " ";

return 0;

}

Class OftenChar{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in);
  String string = in.nextLine(); char chars[] = new char[4];
  chars[0] = in.nextLine().charAt(0); chars[2] = in.nextLine().charAt(0);
  for(int sChar = 0; sChar<string.length(); sChar++)
   if(string.charAt(sChar)==chars[0])chars[1]++;
   else if(string.charAt(sChar)==chars[2])chars[3]++;
  System.out.print("\n"+(chars[1]==chars[3]?chars[0]+""+chars[2]:chars[1]>chars[3]?chars[0]:chars[2]));
 }
}