Результати пошуку

program a1; uses wincrt; var x: array[1..3,1..3] of real; x1,x2,x3:array[1..2,1..2] of real; i,j,i1,i2,i3,j1,j2,j3: integer; d:real; begin writeln('Введите матрицу А(3*3)'); for i:=1 to 3 do begin for j:=1 to 3 do begin read(x[i,j]); end; end; writeln; writeln('Матрица А=')...

program a1; uses wincrt; type mas=array[1..15,1..15] of real; var i,j,q,a: integer; r,t: mas; w,r1,r2:real; procedure suma(y,u: integer; var f1: real); begin for y:=1 to y do begin f1:=0; for u:=1 to u do if r[y,u]<0 then f1:=f1+r[y,u]; writeln('Ñóììà îòðèöàòåëüíûõ ýëåìåíòîâ â ',y,'...

Только вот не очень часто девушки так подходят.... Да и зачем это....

Спасибо, Ghost

Люди, помогите, кто может. Уже голова болит, никак задачу догнать не могу: Дано рядок-речення на російській мові і число k (0<k<10). Зашифрувати рядок, виконавши циклічну заміну кожної букви на букву того самого регістра, розміщену в алфавіті на k-й позиції після шифрованої букви (наприклад...

Ищу старые альбомы Eminem

Да мне главное чтобы работало. Я с этим программированием никак разобраться не могу

Tom d`Cat, пасибо большое

Люди!! Помогите, кто может...:kuku: 39) Дано рядок. Вивести підрядок, розміщений між початком і першою крапкою рядка.