Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var aw:=ReadlnString('Введите строку:').ToWords;
var w:=ReadlnString('Введите искомое слово:');
var i:=aw.FindIndex(e->e=w);
var s:string;
if i>-1 then
if i=aw.Count-1 then s:=aw[:i].JoinIntoString
else s:=(aw[:i]+aw[i+1:]).JoinIntoString
else s:=aw.JoinIntoString;
s.Println
end.
<u>Замечание:</u>
Учитываются именно <u>слова</u>, а не контекст, т.е. слово должно отделяться от остальной части строки пробелом, либо признаками начала/конца строки.
Var x: real;
begin
write('Введите число: ');
readln(x);
writeln(x, ' = |', abs(x), '|');
<span>end.</span>
Учебное пособие посвящено проблемам компьютерного моделирования социальных процессов и представляет собой описание пакетов программ, которые использовались при проведении лабораторных работ студентами Омского государственного университета по гранту Course Development Competition Центрально-Европейского университета (г.Будапешт, Венгрия).
<span>Для студентов и аспирантов математических и социологических факультетов.</span>
Вспомните сюжет русской народной сказки гуси лебеди. Какие условия должна была выполнить героиня? Вспомните другие сказки герои которых должны были сделать выбор.
Поесть ржаного пирожка у печки.
Поесть лесного яблочка у яблони.
Поесть киселька с молоком у речки.
Белоснежка - есть ли яблоко
Богатырь - три дороги
