Разрежь фигуру на 3 равные части так, чтобы линия разреза проходила по сторонам клеточек.​

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function IsGood(Self:integer):boolean; extensionmethod;
begin
  (var max,var min,var n):=(0,9,abs(Self));
  while n>0 do begin
    var d:=n mod 10;
    if d>max then max:=d;
    if d<min then min:=d;
    n:=n div 10
    end;
  Result:=max-min<5
end;

function P(name:string):double;
begin
  Result:=ReadElements&<integer>(name).Where(n->n.IsGood).Average
end;
 
begin
  Writeln('Среднее арифметическое равно ',P(ReadlnString('Имя файла:')))
end.

Пример
Имя файла: integers.pas
Среднее арифметическое равно 1.78571428571429

C:
#include <stdio.h>

int main()
{ 
char name[10];
int year;
printf("Введите Ваше имя: ");
scanf("%s",&name);
printf("Здравствуйте, %s\n",name);
printf("Введите год рождения: ");
scanf("%d",&year);
printf("Вам %d  лет\n", 2017-year);
return 0;
}

Пример:
Введите Ваше имя: Natali
Здравствуйте, Natali
Введите год рождения: 2000
Вам 17 лет

C++
#include <iostream>
#include <string>
using namespace std;

int main()
{
    string name;
    int year;
    cout << "Введите Ваше имя: ";
    getline (cin, name);
    cout << "Здравствуйте, " << name << endl;
    cout << "Введите год рождения: ";
    cin >> year;
    cout << "Вам " << 2017-year << " лет" << endl;
    return 0;
}

Пример:
Введите Ваше имя: Natali
Здравствуйте, Natali
Введите год рождения: 2000
Вам 17 лет