I-вариант1. определить значение переменной c по фрагменту программы.a: =22; b: =3; a: =-2*b+a/2if a < b thenc: =4*b-3*aelse c: =3*a+4*b; 2. преобразовать алгоритмический язык в язык pascalалг максимальное числонач цел a,b,mввод a,b если a> =bто m: =aиначе m: =bвсевывод mкон ii-вариант1.определить значение переменной c по фрагменту программы.a: =30; b: =6; a: =a/2*bif a > b thenc: =a-3*belse c: =a+3*b2. преобразовать алгоритмический язык в язык pascalалг выражениенач цель xвещ yввод xесли x> =0то y: =sqrt (x)иначе y: =abs (x)всеввод yкон

#include <iostream>

#include <time.h>

using namespace std;

int main()

{

 setlocale(LC_ALL, "Russian");

 int a[5][5];

 int i, j, s, p;

 srand(time(NULL));

 for (i = 0; i <= 4; i++) {

   cout << "\n";

   for (j = 0; j <= 4; j++) {

     a[i][j] = ((double)rand() / (RAND_MAX + 1) * 5) + 1;

     cout << a[i][j] << ' ';

   }

 }

 s = 0;

 for (i = 0, j = 4; i < 5; i++, j--)  // правая диагональ

   s += a[i][j];

 p = 1;

 for (i = 0; i < 5; i++)        // левая диагональ

   p *= a[i][i];

 cout << "\n\nСумма правой диагонали = " << s << "\nПроизведение левой диагонали = " << p << "\n";

}

Ну если просто вопрос-ответ

var a: integer;

b: string;

begin

write('ваш возраст - ');

readln(a);

write('твоё самое любимое увлечение - ');

readln(b);

...

и так далее спрашиваешь командой "write('вопрос')", а для ответа команда "readln(d)", где d - это переменная, перед тем как её написать туда, надо её объявить после команды "var" через запятую. Если ответом будет текст, то писать перед "string", если натуральное число, то перед "integer", если целое число, то перед "real"

(например

var a, b, c: integer;

d, e, f: string;

g, h: real;)

...

end.