//Pascal ABC.NET v3.1 сборка 1172
Var
c:char;
begin
readln(c);
if ((c>='a') and (c<='z')) or ((c>='A') and (c<='Z')) or ((c>='А') and (c<='п')) or ((c>='p') and (c<='ё')) then writeln('Буква') else writeln('Символ');
end.
Пример ввода:
ю
Пример вывода:
Буква
Интеграция информационных систем — это процесс установки связей между информационными системами предприятий и организаций для получения единого информационного пространства и организации поддержки сквозных бизнес-процессов предприятий и организаций.
Задача интеграции информационных и учетных систем состоит из двух взаимосвязанных частей: интеграция приложений и интеграция данных. Без интеграции данных невозможно провести интеграцию приложений.
Интеграция данных — процесс компоновки информации из различных информационных систем (ИС) предприятий и организаций, установки ее однозначного соответствия в разных системах (мэппинг таблиц, мэппинг полей, мэппинг записей), синхронизация одинаковых информационных объектов в различных ИС.
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var m:=ReadInteger('M=');
var a:=MatrixRandom(m,m,1,9);
for var i:=0 to m-1 do begin
for var j:=0 to m-1 do Print(a[i,j]);
Writeln
end;
var si:=0;
for var i:=0 to m-1 do begin
var sj:=0;
for var j:=0 to m-1 do sj+=sqr(a[i,j]);
si+=sj
end;
Writeln('S=',sqrt(si))
end.
<u><em>Тестовое решение:</em></u>
M= 6
6 5 2 7 1 1
8 7 9 3 1 8
2 1 7 9 5 7
3 2 8 1 1 8
3 9 1 2 6 7
5 3 5 4 8 3
S=32.6190128606002
N=256
N=2^i
i=16
I=K*i
I=150x60x16=144000 бит=18000 байт
I=18000 байт
объяснения нужны?