Администрирование или программирование, что интересует?
// PascalABC.NET 3.0, сборка 1128
begin
var s:='Это наша тестовая строка ищем слова из четырех букв.';
Copy(s,1,s.IndexOf('.')).ToWords.Where(x->x.Length=4).Println
end.
<u><em>Тестовое решение:</em></u>
наша ищем букв
1) Роднина и биология 86 ≥ химия 74
2) Черепанова или (Биология 92 ≥ Химия 83)
3) Математика 74 ≥ 60 или (Информатика 43 ≤ 60)
4) Математика 94 ≥ 60 и информатика 64 ≥ 60
#include <iostream>
using namespace std;
int main()
{
double sum = 0;
for (int i = 0; i < 10; i++)
{
int x;
cin >> x;
sum += x;
}
cout << sum / 10;
return 0;
}
procedure print(a: <em>integer</em>);
var
i: <em>integer</em>;
s: <em>string</em>;
begin
str(a, s);
for i := 1 to length(s) do
writeln(s[i]);
end;