Ребят Напишите вывод о проделанной работе 0`0 ♡Если вам будет нужно могу с каким либо предметом.

♡(Заранее без,это же легко и т.д.Понимаю я это всё, но времени на эту фигню вообще нет)

♡И также заранее Благодарна за выполненое задание.

#include <iostream>

using namespace std;

int main()

{

string name[5]{};

string k;

int data[5];

int numb[5];

const int n=3;

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

 cout << "Vvedite "<<i+1<<"-oe  FIO: ";

 cin >> name[i];

 cout << "Vvedite " << i + 1 << "-yo  data: ";

 cin >> data[i];

 cout << "Vvedite " << i + 1 << "-iy  nomer: ";

 cin >> numb[i];

}

cout << "Vvedite iskomoe fio: ";

cin >> k;

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

 if (k == name[i]) {

  cout << "Data poluch: " << data[i] << "\n" <<"Nomer: "<< numb[i];

 }

}

}

//1
var A, B, i: integer;
begin
  write('Введите A и B: '); readln(A, B);
  for i := A to B do
    if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i);
end.

//2
var
  A, B, i, k: integer;
begin
  write('Введите A и B: '); readln(A, B);
  for i := A to B do
    if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 <> 99)) then
    begin
      writeln(i);
      k := k + 1;
    end;
    if k = 0 then writeln('Таких чисел нет.');
end.

//3
var sum, i, n: integer;
begin
  write('Введите количество предметов: '); readln(n);
  for i := 1 to n do
  begin
    readln(n);
    sum := sum + n;
  end;
  writeln('Общая масса = ', sum);
end.

//3 с другим циклом
var sum, n: integer;
begin
  writeln('Введите 0 для завершения ввода.');
  repeat
    readln(n);
    sum := sum + n;
  until n = 0;
  writeln('Общая масса = ', sum);
end.