Даны два неравных целых двухзначных числа. возвести в квадрат большее из этих чисел и удвоить меньшее число. написать программу для паскаль.

Это решение при вручную этих чисел: program sadadasf; var i,k,l: integer; begin writeln('введите первое целое двухзначное число: '); readln(i); writeln('введите второе целое двухзначное число: '); readln(k); if k> i then begin k: =k*k; i: =i*2; end; if i> k then begin i: =i*i; k: =k*2; end; writeln('первое число: ',  i); writeln('второе число: ',  k); end. это решение при чисел в самой программе: program sadadasf; var i,k,l: integer; begini: =5; k: =3; if k> i then begink: =k*k; i: =i*2; end; if i> k then begini: =i*i; k: =k*2; end; writeln('первое число: ',  i); writeln('второе число: ',  k); end.

а)какое свойство указывает на назначение объекта: ? ответ: являеться носителем информации

 

б)какое свойство указывает на форму объекта? ответ: круглый