С клавиатуры вводятся 2 числа. Четные необходимо возвестив квадрат, а нечетные удвоить.

на языке pascal написать программу

Program z1;

Var x,y:integer;

Begin

___readln___(x);

Y:=x div___2__;

If y>0 then writeln(‘трехзначное’) else writeln(‘двузначное’);

end.

правильно ли составлена программа?

#include <iostream>

using namespace std;

int main() {

int a, b, c;

//Введем значение трех переменных

cin >> a >> b >> c;

//Направим указатели

int* pa = &a;

int* pb = &b;

int* pc = &c;

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

//Увеличим в два раза

*pa *= 2;

*pb *= 2;

*pc *= 2;

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

//Поменяем местами с и b

*pc += *pb;

*pb = *pc - *pb;

*pc = *pc - *pb;

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

}

Объяснение:

Python 3. В задаче не даны данные для проверки, поэтому проверял на своих, вроде работает ;---)

line = input()

lst = list(line)

count = 0

for i in range(len(lst)):

   if (lst[i] == ';' or lst[i] == ':') and i != len(lst):

       if lst[i + 1] == '-':

           while lst[i + 1] == '-':

               i += 1

       if lst[i + 1] == '(' or lst[i + 1] == ')' or lst[i + 1] == ']' or lst[i + 1] == '[':

           if i + 2 != len(lst):

               if lst[i + 2] == lst[i + 1]:

                   while i + 2 != len(lst) and lst[i + 2] == lst[i + 1]:

                       i += 1

               elif lst[i + 2] == '(' or lst[i + 2] == ')' or lst[i + 2] == ']' or lst[i + 2] == '[':

                   continue

           count += 1

print(count)