Информатика 10 класс ЕГЭ Задачи с роботом

1)

var g1,g2:integer;

begin

writeln('Введите годы рождения двух детей');

readln(g1,g2);

if g1<g2 then

writeln('Старший ребенок родился в ',g1,'году')

else

writeln('Старший ребенок родился в ',g2,'году');

end.

2)

var r,v,ves:real;

begin

write('Введите рост ');

readln(r);

writeln('Введите вес ');

readln(ves);

v:=r-115;

if (r>=168) and (r<=173) then

if v=ves then

writeln('Поступающий будет принят в школу')

else

writeln('Поступающий не будет принят')

else

writeln('Поступающий не будет принят');

end.

#include <iostream>

#include <vector>

using namespace std;

int main() {

   int m, n, x, y;

   cin >> m >> n;

   int a[m][n];

   for (int i = 0; i < m; ++i) {

       for(int j = 0; j < n; ++j) {

           int v;

           cin >> v;

       a[i][j] = v;

       }

   }

   int d;

   int value = 0;

   cin >> d;

   for (int i = 0; i < d; ++i) {

       cin >> x >> y;

       value += a[x - 1][y - 1];

       a[x - 1][y - 1] = 0;

   }

   cout << value;

   return 0;

}

Объяснение: